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PREFAgE 



This publication contains information required by system and 
application programmers to use the data management access method 
functions of MVS/Extended Architecture Data Facility Product, 
Program Number 5665'-XA2. It describes and defines the data 
management macro instructions-except for VSAM (virtual storage 
access method)— available in the assembler language. See 
"Related Publications" on page iv for the related VSAM 
publications. 



ORgANIZATIPN 

This publication is divided into these parts t 

• "Introduction" on page 1 defines and discusses macro 
instructions and the rules to be followed when when coding 
them> and the notational conventions used throughout the 
publication . 

• "Macro Instruction Descriptions" on page 8 defines and 
discusses the functions of each macro instruction and how 
each must be coded. The macro instructions are presented in 
alphabetic order. The standard form of each is described 
first/ followed by the list and execute forms. The list and 
execute forms are available only for those macro 
instructions that pass parameters in a list. 

• Appendix A» "Status Information Following an Input/Output 
Operation" on page 19Z, defines and discusses the location, 
alignment, and description of the symbolic fields in the 
data event control block and the event control block. 

• Appendix 6, "Data Management Macro Instructions Available by 
Access Method" on page 193, defines and discusses the macro 
instructions available for each of the data management 
access methods. 

• Appendix C, "Device Capacities" on page 194, defines and 
discusses device capacities as a guide to coding the block 
size and logical record length operands in the DCB macro 
instruction. 

• Appendix D, "DCB Exit List Format and Contents" on page 197, 
defines and discusses the format and content of the data 
control block exit list. 

• Appendix E, "Control Characters" on page 199, defines and 
discusses the control characters used to control spacing and 
skipping (printers) and stacker selection (card read punch 
or card punch) . 

• Appendix F, "Data Control Block Symbolic Field Names" on 
page 202, defines and discusses the location, alignment, and 
description of the data control block symbolic field names. 

• Appendix 6, "PDABD Symbolic Field Names" on page 219, 
defines and discusses the location, alignment, and 
description of the PDABD dummy control section. 

• "Glossary of Terms and Abbreviations" on page 220 defines 
and discusses the definitions of the terms and abbreviations 
used in this publication. 
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To use this book you must have knowledge of assembler language 
as described in Assembler H Version 2 Application Prooramminat 
Lanouaoe Reference. GC26-<i037, and Assembler H VgrsigP 2 

Applic^tign Prggr^mtninq- , QMide> SC26-4036, and of job control 

language (JCL) as explained in MVS/Extended Architecture JCL 
Vggr'S gMidg* GC28-1351, and MVS/ Extended Architecture JCL 
Reference. GC28-1352. 

If you know how to write assembler language programs and use job 
control statements* you can use this book and MVS/ Extended 
Architecture Data Administration Guide. GC26-<il40/ to write 
programs that create and process data sets. 



REQUIRED PUBLICATIONS 

You should be familiar with the information presented in the 
following publicationst 

• Assembler H Version 2 Application Proaramminai Language 
Reference. GC26-<»037 

• Assembler H Version 2 Application Programming; Guide. 
SC26-4036 

• MV?/Extgn<jgd Architgctvire Data Adminis-^rgtign Q^i<A9^ 

GC26-<»1^0 

• MVS/Extended Architecture System Programming Library; 
Supervisor Services and Macro Instructions. GC28-1154 

• MVS/Extended Architecture JCL User's Guide. GC28-1351 

• MV$/Exten<;|g<i Archatggtvire s»Cl Refereng^> GC28-1352 



RElATgP PMBLIQATIQN? 

Nithin the text# references are made to the publications listed 
in the table belows 



Short Title 


Publication Title 


Order 
Number 


Assembler H V2 
Application 
Programming} 
Guide 


A?59mbl§r H V§r5i9n 2 

Application Programming; 


SC26-403d 


Assembler H V2 

Application 

Programming; 

Language 

Reference 


Assembler H Version 2 
Application Programming; 


GC26-4037 


Checkpoint/Restart 
User's Guide 


MV5/Exten<rfed Arthitectvire 
CheQkPQinVRestart User's 
QMide 


GC26-<^139 


Conversion 
Notebook 


MY§/E>^ten<ie«l Archit«ct«r« 
CQnversiQn Nctebppk 


GC28-li« 


Data 

Administration 
Guide 


MVS/Extended Architecture 

I2a.tfiL..Adinii)istrati9n Quids 


GC26-<tl40 
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Short Title 


Publication Title 


Order 
Number 


Data Facility 
r roaucT • 
Customization 


MV$/E?<tended Architecture 
tiaxa raciiixY rroaucx. 

Versipn Z CM?"tPFnissti<?n 


GC26-^»267 


IBM 3262 Model 5 
Printer Product 
uesc Pi pTX on 


im 5262 Mff^iel 5 Printer 
PrQdyct DescriPtipn 


GA2<i-3936 


IBM 3800 Printing 
Subsystem 
Programmer's 
Gux de 


IPM 5?00 Printinq Subsystem 

Proarammer's Guide 


GC26-38^i6 


IBM 3800 Printing 

Subsystem 

Programmer's 

uu ji ae 


IBM 3800 Printina Subsvstem 
Models 3 and 8 Proarammer's 


SH35-0061 


IBM 3890 Document 
Processor Machine 
and Programming 


IPM 5990 ppcvment PrQcesscr 

Machine and Proarammina 
Description 


GA2^I-3612 


IBM A2A5 Printer 
Model 1 Component. 
1/escniPwion ana 
Operator's Guide 


IBM Printer Model 1 
Component Description and 

vperflvPr s vtiiflie 


GA33-15^1 


IBM <i2<+8 Printer 
Model 1 
Description 


IPM ^2^9 Printer M^del 1 
PescriptiQn 


GA2'i-3927 


Initialization 
and Tuning 


MVS/Extended Architecture 
Svstem Proarammina Librarv: 
Initialization and Tunina 




JCL User's Guide 


MVS/Extended Architecture 

JCL Vser's CMjide 


GC28-1351 


JCL Reference 


MV5/Extended Architectwre 

y VL ti£X.e.Leji£.e 


GC28-1352 


Magnetic Tape 

Structure 
Administration 


MVS/Extended Architecture 
na g n_.e ii c j _a p e_i. aoeis an a 
File Structure 
Administration 


GC26-41^5 


Open/Close/EOV 

L ogi c 


MVS/Extended Architecture 

upen^' ui ose/: cu v_ l dqtc. 


LY26-3966 


OS/VS IBM 3886 
Optical Character 
Reader Model 1 

rveieienwe 


0$/V5 I»M im Optical 

Character Reader Model 1 

Reference 


GC2<i-5101 


OS/VS Mass 
Storage System 
(MSS) Planning 
Guide 


OS/VS Mass Storaae Svstem 
(MSS) Plannina Guide 


GC35-0011 


OS/VS Mass 
Storage System 
(MSS) Services: 
General 
Information 


OS/VS Mass Storaae Svstem 
(MSS) Services: General 
Information 


GC35-0016 
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Short Title 


Publication Title 


Order 
Number 


OS/VS Mass 
Storage System 
(MSS) Extensions 
Services: 
Reference 


0§/VS Mass 5t9raq« System 

(MSS) Extensions Servicest 

Reference 


SH35-0036 


Programming 
Support for the 
IBM 3505 Card 
Reader and the 
IBM 3525 Card 
Punch 


Prooramminq SuDoort for the 
IBM 3505 Card Reader and the 

ISM i5Z5 Card Pvnch 


GC21-5097 


RACF General 

Information 

Manual 


Resource Access Control 
Facilitv (RACF): General 
Information Manual 


GC28-0722 


Service Aids 


MVS/Extended Architecture 
Svstem Proarammina Librarv: 
Service Aids 


GC28-1159 


Supervisor 
Services and 
Macro 

Instructions 


MVS/Extended Architecture 
Svstem Proqrammina Librarv: 
Supervisor Services and 
Macro Instructions 


GC28-1154 


System Codes 


MVS/Extended Architecture 

Mes53qe .Library- System 
Cod?s 


GC28-1157 


System— Data 
Administration 


MVS/Extended Architecture 

SystennData Administration 


GC26-41<*9 


System Generation 


MVS/Extended Architecture 
Installation: Svstem 
Generation 


GC26-4148 


System Macros and 
Facilities 


MVS/Extended Architecture 
Svstem Proarammina Librarv: 
Macros and Facilities. 
Volumes 1 and 2 


GC28-1150 
and 

GC28-1I51 


System Messages 


MVS/Extended Architecture 
Messaae Librarv: Svsten^ 
Messaae?. Volumes 1 and 2 


GC28-1376 
and 

GC28-1377 


Utilities 


MVS/Extended Architecture 
Data Administration: 

Utilities 


GC26-4150 


VSAN 

Administration 
Guide 


MV$/5xtended Architecture 

VSAM Administration Guide 


GC26-4151 


VSAN 

Administration* 
Macro Instruction 
Reference 


MVS/Extended Architecture 
VSAM Administration: Macro 
Instruction Reference 


GC26-<»152 
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SVHflARY OF CHANge? 



1 RELEASe g,Pr VVNE 1987 



i NEW PROGRAMMING SUPPORT 

This release provides virtual storage constraint relief by 
allowing VSAM control blocks to be obtained above 16M. Changes 
have been made to each of the three forms of the OPEN and CLOSE 
macros to allow for a new long form parameter list. The new 
long form allows for Sl-bit addresses. The default is the 
standard form parameter list with 24-bit addresses. 

A new DCB exit list code^ XU3S has been added to RDJFCB to 
retrieve allocation information. Changes have been made to 
Appendix Hp "DCB Exit List Format and Contents" to document the 
new exit list code. 



I CUSTOMIZATION RESTRUCTURE 

Detailed information on exception codes and status indicators 
from Appendix A, "Status Information Following an Input/Output 
Operation" on page 192 has been moved to Data Facility Product; 



1 SERVICE CHANGES 

Minor technical changes have been made. In addition^ 
documentation for the TYPE=J operand has been added to the 
descriptions of each of the three forms of the OPEN macro. 



RELEASE 2tPt AMW$T 19?^ 

Technical changes have been made concerning certain functions. 
These changes are reflected in sections of the book with 
vertical change bars. 



RELEASE IfOt APRIL 1985 



NEW DEVICE SUPPORT 

Information has been added to support thet 

• IBM 3380 Models AD4, BD4/ AE4» and BE4 Direct Access Storage 

devices 

• IBM 4245, A248, and 3262 Model 5 Printers 

• IBM 3430 Tape Drive 

• IBM 3480 Magnetic Tape Subsystem 



Summary of Changes vii 



NEW PROGRAMMING SUPPORT 

Information has been added that describes that 

• SYNCDEV macro 

• MSGDISP macro 

VERSION 2 PUBLICATIONS 

The Preface includes new order numbers for Version 2. 
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INTRWVgTIQN 



Before using this publication/ familiarize yourself with the 
information in Data Adminisiira'tipn 6tiide» 

IBM provides a set of macro instructions so that you can 
communicate service requests to the data management access 
method routines. These macro instructions are available only 
when the assembler language is being used> and they are 
processed by the assembler program using macro definitions 
supplied by IBM and placed in the macro library when the 
operating system is generated. 

The assembler program expands each macro instruction into 
executable^ assembler language instructions or data^ and shows 
you the exact macro expansion in the assembler listing. The 
executable instructions generally consist of branches around 
data fields^ load register instructions^ and either branch 
instructions or supervisor calls (SVC) that transfer control to 
the proper program. The data fields in each macro instruction 
are parameters that are passed to the access method routine. 

You can use the utility program lEBPTPCH to get a list of macro 
definitions from SYSl.MACLIB/ the library in which the macro 
definitions are stored. For a description of lEBPTPCH/ see 
iilililifiS- 

Before coding programs that request supervisor services* 
familiarize yourself with the information contained in 
Supervisor Services and Macro Instructions. Also, if you are 
writing programs for specialized applications such as 
telecommunications/ graphics* character recognition* or to use 
VSAM (virtual storage access method)* use the appropriate 
publication listed in the preface that describes the specific 
access method and/or device type you are working with. 

The operation of some macro instructions depends on the options 
selected when the macro instruction is coded. For these macro 
instructions* either separate descriptions are provided or the 
differences are listed within a single description. If no 
differences are explicitly listed* none exist. The description 
of each macro instruction siarts on a right-hand page; the 
descriptions that do not apply to the access methods being used 
can be removed. Appendix B* "Data Management Macro Instructions 
Available by Access Method" on page 193 lists the macro 
instructions available for each access method. 



I$Qr AN$If AND FlPg LABELS 

This publication refers to tape labels defined by the 
International Organization for Standardization (ISO)* the 
American National Standards Institute (ANSI)* and the Federal 
Information Processing Standard (FIPS). In general* 
ISO/ANSI/FIPS labels are similar to IBM standard labels* and* 
unless otherwise specified* the term "standard label*" refers to 
both IBM standard labels and ISO/ANSI/FIPS standard labels. ISO 
labeled tapes are coded in the Organization Standard Code for 
Information Interchange (ISCID* and ANSI labeled tapes are 
coded in the American National Standards Code for Information 
Interchange (ASCII)* while IBM labeled tapes are coded either in 
the extended binary-coded-decimal interchange code (EBCDIC) or 
in binary coded decimal (BCD). For further information about 
ISO/ANSI/FIPS labels* see Magnetic Tape Labels and File 

Strwctvirg. 
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CQPINg AlPg 



BOLD TYPE 

Bold type is used for elements that you must code exactly as 
they are shown. These elements consist of macro names» 
keywords* and these punctuation symbols t commas* parentheses* 
and equal signs. Examples) 

• DCB 

• CLOSE »>»>TYPE3T 

• NACRF3(PL,PTC) 

• SK>5 

UNDERSCORED LOWERCASE LETTERS 

Underscored lowercase letters are used for elements for which 
you code values that you choose* usually according to 
specifications and limits described for each parameter. 
Examples* 

• nv<mt?er 

• ggvtnt 

BRACKETS 

Brackets* C ]* enclose optional elements that you may or may not 
code as you choose. Examples: 

• [HF=E3 

OR SIGN 

The OR sign* I* separates alternative elements. Examplest 

• C» REREAD I, LEAVE] 

• lisnaihrs'l 



BRACES 

Braces* { }* enclose alternative elements from which you must 
choose one* and only one* element. Examples! 

• BFTEKs{SiA> 

• CKID} 

• CaddrMslSIO 

Sometimes* alternative elements (especially complicated i 
alternatives) are grouped in a vertical stack of braces. 
Example* 

MACRFs{{(RCC|Pn} 
{(W[C|PiL])> 
{(RCCl^WCCn}} 

In the examples above* you must choose only one element from the 
vertical stack. 
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ELLIPSES 

Ellipses^ indicate that elements may be repeated. 

Example! 

• tdcbaddr.n options 11.... 1 

UNDERSCORED BOLD 

Underscored BOLD elements indicate alternative choices that are 
assumed if you don't want to code the optional element. 
Examples i 

• I EROPTsC ACQ I SKP I ^} 3 

• tBFALNsCFlfi}] 



BLANK SYHBOL 



The blank symbol » b, indicates omitted operands. Example: 



PDAB 



COHPREHENSZVE EXAMPLE 

• MFsCE^CadiiCfiSSltin) 

In this example^ HF=(E» must be coded exactly as shown. 
Then^ either address or (1) must be coded. (The parentheses 
around the 1 are required.) Finally, the closing 
parenthesis must be coded. Thus^ HFs(E>(l)) might be coded. 

• RECFNs{{U[THA|N]} 

{VCB|S|T|BS|BT3CA|H3> 
{D[B3[A3> 

{F[B|S|TiBS|BT3EA|N3}} 

In this example^ you must first choose one of the four 
alternative elements shown on each line. Then^ you must 
choose one of the major elements. Assuming you selected the 
major element beginning with F, you would code F; then you 
could choose one of B^ S^ T^ ZS, or BT. Finally/ you could 
select either A or H. Thus» you might code any one of the 
fol lowing t RECFHsFBTN, RECFHsFA, or RECFH=F. 



MACRO IN$TRVCTIQN FORMAT 

Data management macro instructions are subject to the rules of 
assembler language and are written in the following format < 



Name 


Operation 


Operands 


Comments 


Symbol or 
blank 


Macro name 


None/ one or more 
operands separated 
by commas 
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Use the operands to specify services and options you need and 
code them according to the following general rulesi 

• If the operand you select is shown in bold capital letters 
(for example^ NACRpsWDr code the operand exactly as shown. 

• If the operand you select is a character string in bold type 
(for example* if the type operand of a READ macro 
instruction is SF)/ code the operand exactly as shown. 

• If the operand is shown in underscored lowercase letters 
(for example* deb address ), substitute the indicated 
address* name* or value. 

• If the operand is a combination of bold capital letters and 
underscored lowercase letters (for example* LRECLs absexp ) . 
code the capital letters and equal sign exactly as shown and 
substitute the appropriate address* name* or value for the 
underscored lowercase letters. 

• Code commas and parentheses exactly as shown. 

Note: Omit the comma that follows the last operand in a 
statement. Brackets and braces show how to use commas and 
parentheses the same way they show how to use operands. 

• Several macro instructions contain the designation 'S*. Use 
the apostrophe on both sides of the S operand. 

If you need to substitute a name* value* or address* the 
notation you use depends on the operand you are coding. The 
following two examples show how an operand can be coded: 

DDNAMEssymizfil 

In this example* you can only code a valid 
assembler-language symbol for the operand. 

deb address- — RX-Type Address* (2-12)* or (1) 

In the above example* you can substitute an RX-type 
address* any general register 2 through 12* or general 
register 1. 

The following examples show what each notation means and how you 
can code an operandi 

This notation indicates that the operand can be any valid 
assembler-language symbol. 

decimal digit 

This notation indicates that the operand can be any decimal 
digit up to the maximum value allowed for the specific 
operand. 

This notation indicates that the operand can be any of the 
general registers Z through 12* All register operands must 
be coded in parentheses; for example* if you code register 
1* use the form ij^}. If you want to use one of the 
registers Z through 12* code it as a decimal digit* a 
symbol (equated to a decimal digit)* or an expression that 
yields a value of 2 through 12. 



(1) 



When this notation is shown* general register 1 can be used 
as an operand. The register can be specified as a decimal 
digit 1 enclosed in parentheses. When register 1 is used 
as an operand* the instruction that loads the parameter 
value into the register is not included in the macro 
expansion. 

When this notation is shown* general register Q, can be used 
as an operand. The register can be specified as a decimal 
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digit H enclosed in parentheses. Hhen register Si is used 
as an operands the instruction that loads the parameter 
value into the register is not included in the macro 
expansion. 

RX-Tvpe Address 

When this notation is shown^ the operand can be specified 
as any valid assembler-language RX-type address. The 
following shows examples of each valid RX-type address: 



Name 


Operation 


Operand 


ALPHAl 


L 


1,39(^»,10) 


ALPHA2 


L 


REG1,39(A,TEN) 


BETAl 


L 


2,ZETA(A) 


BETA2 


L 


REG2,ZETA(REGA) 


GAMMA 1 


L 


2,ZETA 


GAMMA2 


L 


REG2,ZETA 


6AMMA3 


L 


2,=F»1000» 


LANBDAl 


L 


3.20(,5) 



Both ALPHA instructions specify explicit addresses; REGl 
and TEN are absolute symbols. Both BETA instructions 
specify implied addresses^ and both use index registers. 
Indexing is omitted from the GAMMA instructions. GAMMAl 
and GAMMA2 specify implied addresses. The second operand 
of GAMMA3 is a literal. LAMBDAl specifies an explicit 
address with no indexing. 

A-Tvpe Address 

Hhen this notation is shown» the operand can be specified 
as any address that can be written as a valid 
assemblei — language A-type address constant. An A-type 
address constant can be written as an absolute value/ a 
relocatable symbols or a relocatable expression. Operands 
that require an A-type address are inserted into an A-type 
address constant during the macro expansion process. For 
more details about A-type address constants, see ftssemb^ef 
H Version 2 Application ProoramminQt Lanauaoe Reference. 

^bsexp 

Nhen this notation is shown, the operand can be an absolute 
value or expression. An absolute expression can be an 
absolute term or an arithmetic combination of absolute 
terms. An absolute term can be a nonrelocatable symbol, a 
self -defining term, or the length attribute reference. For 
more details about absolute expressions, see Assembler H 

Version 2 Applicatign Proqramminq» Lanqtiage Reference, 
relexp 

When this notation is shown, the operand can be a 
relocatable symbol or expression. A relocatable symbol or 
expression is one whose value changes by n if the program 
in which it appears is relocated n bytes away from its 
originally assigned area of storage. For more details 
about relocatable symbols and expressions, see Assembler H 
Version 2 Application ProaramminQ; LanQuaoe Reference. 



RULES FOR REGISTER USAGE 

Many macro instruction expansions include instructions that use 
a base register previously defined by a USING statement. The 
USING statement must establish addressability so that macro 
expansion can include a branch around the in-line parameter 
list, if present, and see the data fields and addresses 
specified in the macro instruction operands. 

Macro instructions that use a BAL or BALR instruction to pass 
control to an access method routine, normally require that 
register 13 contain the address of an 18-word register-save 
area. The READ, WRITE/ CHECK/ GET/ and PUT macro instructions 
are of this type. 
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Macro instructions that use a supervisor call (SVC) instruction 
to pass control to an access method routine may modify general 
registers Qf !» 14/ and 15 without restoring them. Unless 
.otherwise specified in the macro instruction description^ th« 
contents of these registers are undefined when the system 
returns control to the problem program. 

Mhen an operand is specified as a register* the problem program 
must have inserted the value or address to be used into the 
register as followst 

• Unless the macro instruction description states otherwise* 
and the register is to contain a value* that value must be 
placed in the low-order portion of the register. Any unused 
bits in the register should be set to zero. 

• If the register is to contain a 24~bit address* the address 
must be placed in the low-order three bytes of the register* 
and the high-order byte of the register should be set to 
zero . 

• If the register is to contain a 31-bit address* the address 
must be placed in the low-order 31 bits of the register* and 
the high-order bit of the register should be set to zero. 

Note that* if the macro instruction accepts the RX-type address* 
the high-order byte of a register can be efficiently cleared by 
coding the parameter as 0 (reg) rather than merely as (reg).^ 
Then the macro instruction expands est 

LA parmreg* O(reg) by macro 

rather thant 

LA reg* 0( reg) by user 

and 

LR parmreg* reg by macro 



RULES FOR CONTINUATION LINES 

The operand field of a macro instruction can be continued on one 
or more additional lines as followst 

1. Enter a continuation character (not blank* and not part of 
the operand coding) in column 72 of the line. 

2. Continue the operand field on the next line* starting in 
column 16. All columns to the left of column 16 must be 
blank. 



For 31-bit addressing mode expansion* the high-order bit of 
a register can be cleared using this same technique. 
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The operand field being continued can be coded in one of two 
ways. The operand field can be coded through column 71^ with no 
blanks^ and be continued in column 16 of the next line^ or the 
operand field can be truncated by a comma ^ where a comma 
normally falls> with at least one blank before column 71^ and 
then be continued in column 16 of the next line. An example of 
each method is shown in the following illustration: 



Name Operation 



Operand 



Comments 



NANEl OPl 



OPERANDI » 0PERAND2, OPERANDS, OPERAND<^> OPERANDS, 0PERAND6 , OPERX 
AND7, OPERANDS THIS IS ONE WAY 



NAME2 0P2 



OPERANDI, 0PERAND2, 

OPERANDS, 

OPERANDS 



THIS IS ANOTHER WAY 



X 
X 
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MACRO INSTB UCTTOM DESCRIPTIONS 



BLDL— BUILD A DIRECTORY ENTRY LIST fBPAMl 

Thtt BLDL macro is used to complete a list of information from 
the directory of a partitioned data set. The problem program 
must supply a storage area that must include information about 
the number of entries in the list« the length of each entry^ and 
the name of each data set member (or alias) before the BLDL 
macro is issued. Data set member names in the list must be in 
alphameric order. All read and write operations using the sama 
data control block must have been tested for completion befora 
the BLDL macro is issued. 

The BLDL macro is written < 





BLDL 


deb address 






rlist address 



deb address — RX-Type Address, (2-12) or (1) 

The deb address operand specifies the address of the data 
control block for an open partitioned data set, or zero can 
be specified to indicate that the data set is in a job 
library, step library, or link library. 

list address— RX-Tvpe Address, (2-12), or (0) 

The list address operand specifies the address of the list 
to be completed when the BLDL macro is issued. The list 
address must be on a halfword boundary. The following 
illustration shows the format of the listi 



List 

List Description 
Address 1 Field 



List 

Entry (LL bytes) 



Oor 
More 

Entries (FF total) 



FF 



LL 



NAME 1 



TFR 



Length 
(bytes) 



1 I I 



USER DATA 



0to62 



NAME 2 



FFi This field must contain a binary value indicating the 
total number of entries in the list. 

LLt This field must contain a binary value indicating the 
length, in bytes, of each entry in the list (must be an 
even number of bytes). If the exact length of the entry is 
known, specify the exact length. Otherwise, specify at 
least 58 bytes (decimal) if the list is to be used with an 
ATTACH, LINK, LOAD, or XCTL macro. The minimum length for 
a list is 12 bytes. 

NAMEt This field must contain the member name or alias to 
be located. The name must start in the first byte of the 
name field and be padded to the right with blanks (if 
necessary) to fill the 8-byte field. 
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BLDL 

Hhen the BLDL macro is executed^ five fields of the 
directory entry list are filled in by the system. The 
specified length (LL) must be at least 14 to fill in the Z 
and C fields. If the LL field is 12, only the NAME, TTf R, 
and K fields are returned. The five fields are: 

TTt Indicates the relative track number where the 
beginning of the data set member is located. 

Ri Indicates the relative block (record) number on the 
track indicated by IT. 

Ki Indicates the concatenation number of the data set. 
For the first or only data set, this value is zero. 

Zi Indicates where the system found the directory entry: 

Code Heaning 

0 Private library 

1 Link library 

2 Job, ±Bsk, or step library 

3-255 Job, task, or step library of parent task n, where 
n s Z-2 

Ct Indicates the type (member or alias) for the name^ the 
number of note list fields (TTRNs), and the length of the 
user data field (indicated in halfwords). The following 
describes the meaning of the 8 bits: 

Bit Meaning 

0=0 Indicates a member name. 
0=1 Indicates an alias. 

1-2 Indicate the number of TTRN fields (maximum of 3) in 
the user data field. 

3-7 Indicate the total number of halfwords in the user 

data field. If the list entry is to be used with an 
ATTACH, LINK/ LOAD, or XCTL macro, the value in bits 
3 through 7 is 22 (decimal). 

USER DATA: The user data field contains the user data from 
the directory entry. If the length of the user data field 
in the BLDL list is equal to or greater than the user data 
field of the directory entry, the entire user data field is 
entered into the list. Otherwise, the list contains only 
the user data for which there is space. 
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BLOL 



COMPLETION CODES 



Hhen the system returns control to the problem program* the 
low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason code* as follows t 

Return Reason 

Code (15) Code (0) Meaning 

00 (X'OO*) 00 (X'OO*) Successful completion. 

04 (X'04') 00 (X'OO') One or more entries in the list could 

not be filled; the list supplied may be 
invalid. If a search is attempted but 
the entry is not found* the R field 
(byte 11) for that entry is set to 
zero. 

08 (X'08*) 00 (X'OO') A permanent I/O error was detected when 

the system attempted to search the 
directory. 

08 (X'08') 0^ (X'04') Insufficient virtual storage was 

available. 

08 (X'08') 08 (X'08') Invalid DEB. (Not in key 0 through 7.) 
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BSP 



BSP^ACKSPACE A PHYSICAL RECORD (BSAM--MAGNETIC TAPE AND DIRECT ACCESS ONLYl 

The BSP macro causes the current volume to be backspaced one 
data block (physical record). All input and output operations 
must be tested for completion before the BSP macro is issued. 
The BSP macro should not be used if the CNTRL> NOTE» x>r POINT 
macro is being used. The BSP macro can be used only on data 
sets created by BSAM. 

Any attempt to backspace across a file mark will result in a 
return code of X*04' and your tape or direct access volume will 
not be repositioned. This means you cannot issue a successful 
BSP macro after your EODAD routine is entered unless you first 
reposition the tape or direct access volume into your data set. 
(CLOSE TYPE^T would get you repositioned at the end of your data 
set.) 

Magnetic Tape: A backspace is always made toward the beginning 
of the tape. 

Direct Access Device t A BSP macro must not be issued for a data 
set created by using track overflow. 

SYSIN or SYSOUT Data Setst A BSP macro is ignored, but a 
completion code is returned. 

The BSP macro is written: 



Ks^ODkAil BSP 



deb address 



deb address — RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the volume to be backspaced. The data 
set on the volume to be backspaced must be opened before 
issuing the BSP macro. 
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BSP 

CONPLETZON CODES 



Hhen the system returns control to the problem program^ the 
low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason code» as followst 

Return Reason 

Code (15) Code (0) Heaning 

00 (X«00') 00 (X'OO*) Successful completion. 

04 (X*04') 01 CX'Ol') A backspacing request was ignored on a 

SYSIM or SYSOUT data set. 

04 (X'04') 02 (X*02') Backspace not supported for this device 

type. 

04 (X'04') 03 (X'03') Backspace not successful; insufficient 

virtual storage was available. 

04 (X'04') 04 (X'04*) Backspace not successful; permanent I/O 

error. 

04 (X'04') 05 (X'05') Backspace into load point or beyond 

start of data set on the current 
volume. 

04 (X'04') 06 (X'06') Backspace detected an invalid DEB using 

DEBCHECK. 

04 (X'04') 07 (X'07') Backspace detected an^ invalid extend 

value (M). 

04 (X'04') 08 (X'08*) Backspace issued while I/O was in 

progress. 
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BUILD 



BUILD— BUILD A BUFFER POOL tBDAM. BISAM. BPAM. BSAM. QISAM. AND QSAMl 

The BUILD macro is used to construct a buffer pool in an area 
provided by the problem program. The buffer pool may be used by 
more than one data set through separate data control blocks. 
Individual buffers are obtained from the buffer pool using the 
GETBUF macrOf and buffers are returned to the buffer pool using 
a FREEBUF macro. See Data Administration Guide for an 
explanation of the interaction of the DCB» BUILD* and GETBUF 
macros in each access method* and the buffer size requirements. 

The BUILD macro is written t 



BUILD 



^rea acjdress 

>tnumber of buf f ers.buf f er lenathi (0)} 



area address — RX-Type Address, (2-12), or (1) 

The area address operand specifies the address of the area 
to be used as a buffer pool. The area must start on a 
fullword boundary. 

The following illustration shows the format of the buffer 
pool t 



Area 

Address 



Buffer Pool 

Control 

Block 



8 bytes 



Buffer 



Buffer 
Length 



Buffer 



Buffer 
Length 



Area Length 



Area Length=( Buffer Length) x (Number of Buffers) +8 
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BUILD 



numbar of buffers — symbol, decimal digit, absexp, op (2-12) 
The numbei — of-buffers operand specifies the number of 
buffers in the buffer pool to a maximum of 255. 

buffer length — symbol, decimal digit, absexp, or (2-12) 

The buffer length operand specifies the length, in bytes, 
of each buffer in the buffer pool. The value specified for 
the buffer length must be a fullword multiple; otherwise, 
the system rounds the value specified to the next higher 
fullword multiple. The maximum length that can be 
specified is 32760 bytes. For QSAM, the buffer length must 
be at least as large as the value specified in the block 
size (DCBBLKSI) field of the data control block. 

(0) 

The number of buffers and buffer length can be specified in 
general register 0. If (0) is coded, register 0 must 
contain the binary values for the number of buffers and 
buffer length as shown in the following illustration. 



Register 0 



Number of Buffers 


Buffer Length 


0 




IS 


16 




31 



14 MVS/XA Data Administrations Macro Instruction Reference 



gVIUPRCP— gVILP A gVFFER POOL AND A RECORP AREA ( Q $AI1? 



BUILDRCD 



The BUILDRCD macro causes a buffer pool and a record area to be 
constructed in a usei — provided storage area. This macro is used 
only for variable-length, spanned records processed in QSAM 
locate mode. If the extended logical record interface (XLRI) is 
used to process RECFM=DS or RECFM=DBS records ( ISO/ANSI/FIPS 
variable spannc<d or variable blocked spanned) » you can use the 
BUILDRCD macro to build a record area to a maximum length of 
16777183 bytes. Use of this macro before the data set is 
opened/ or before the end of the DCB open exit routine, will 
provide a buffer pool that can be used for a logical record 
interface rather than a segment interface for variable-length 
spanned records. To invoke a logical record interface, specify 
BFTEK=A in the DCB. The BUILDRCD macro cannot be specified when 
logical records exceed 32760 bytes. 

The standard form of the BUILDRCD macro is written as follows 
(the list and execute forms are shown following the description 
of the standard form) t 





BUILDRCD 


?re^ address 






f number of buffers 






, buffer l^nq^th 






•record area address 






Ur«Qprd ?rea i^nqth3 



area address — A-Type Address or (2-12) 

The area address operand specifies the address of the area 
to be used as a buffer pool. The area must start on a 
fullword boundary. 

number of buffers — symbol, decimal digit, absexp, or (2-12) 
The numbei — of-buffers operand specifies the number of 
buffers, to a maximum of 255, to be in the buffer pool. 

buffer length — symbol, decimal digit, absexp, or (2-12) 

The buffer-length operand specifies the length, in bytes, 
of each buffer in the buffer pool. The value specified for 
the buffer length must be a fullword multiple; otherwise, 
the system rounds the value specified to the next higher 
fullword multiple. The maximum length that can be 
specified is 32760. 

record area address — A-Type Address or (2-12) 

The record area address operand specifies the address of 
the storage area to be used as a record area. The area 
must start on a doubleword boundary and have a length of 
the maximum logical record (LRECL) plus 32 bytes. 

record area length — symbol, decimal digit, absexp, or (2-12) 

The record area length operand specifies the length of the 
record area to be used. The area must be as long as the 
maximum length logical record plus 32 bytes for control 
information. If the record area length operand is omitted, 
the problem program must store the record area length in 
the first four bytes of the record area. 



Macro Instruction Descriptions 15 



BUILDRCD 



The following illustration shows ths format of tha buffer poolt 



Area 
Address 



BUFAD 


BUFLC 


BUFNO 


BUFLTH 


BUFRECAD 


Buffer 


1 




Buffer 


Address of First 
Available Buffer 


Flags 


No. of 
Buffers 
Req'd 


Length of 

Each 

Buffer 


Address 
of Record 
Area 


4 bytes 1 byte 1 byte 2 bytes 4 bytes 
■ ' 1 2 bytes . m. , . . ♦ 


Buffer 




Buffer 


Buffer Pool Control Block 


Length 


Length 



Area Length - (Buffer Length) x (Number of Buffers) *\ 2 



BUFL6 Flags: 
Bit Meaning 

0=1 Record area present 

1^1 Buffer control block extended 

2-7 Reserved 

Notes: 

1. The buffer pool control block contains the address of the 
record area and a flag that indicates logical-record 
interface processing of variable-lengths spanned records. 

2. It is the user's responsibility to release the buffer pool 
and the record area after a CLOSE macro has been issued for 
all the data control blocks that use the buffer pool and the 
record area. 
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BUZLDRCD 



gVILPRCP— Ll$T FORM 

The list form of the BUILDRCD macro is used to construct a 
program parameter list. The description of the standard form of 
the BUILDRCD macro instruction provides the explanation of the 
function of each operand. The description of the standard form 
also indicates the operands that are totally optional and those 
that are required in at least one of the pair of list and 
execute forms. The format description below indicates the 
optional and required operands in the list form only. 

The list form of the BUILDRCD macro is written < 





BUILDRCD 


ar?9 a?<dres5 






•number of buffers 






»bMffer lenqth 












t»r«?ord area lenq-thl 









area address — A-Type Address 

number of buffers — symbol > decimal digit, or absexp 
buffer length — symbol, decimal digit, or absexp 
record area addresg — ArType Address 

record area length — symbol, decimal digit, or absexp 
MFSL 

The HFsL operand specifies that the BUILDRCD macro 
instruction is used to create a parameter list that will be 
referenced by an execute form instruction. 

Note: A parameter list can be constructed by coding only the 
HF=L operand (without the preceding comma); in this case, the 
list is constructed for the area address, number of buffers, 
buffer length, and record area address operands. If the record 
area length operand is also required, the operands can be coded 
as follows: 

CsiiOllbfill BUILDRCD ,,,0,NFsL 

The preceding example shows the coding to construct a list 
containing address constants with a value of 0 in each constant. 
The actual values can then be supplied by the execute form of 
the BUILDRCD macro. 
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BUILDRCO 



BUILDRCD— EXECUTE FORM 

A remote parameter list is referred to, and can be modified by» 
the execute form of the BUILDRCD macro. The description of the 
standard form of the BUILDRCD macro instruction provides the 
explanation of the function of each operand. The description of 
the standard form also indicates the operands that are totally 
optional and thosa that are required in at least one of the pair 
of list and execute forms. The format description below 
indicates the optional and required operands for the execute 
form only. 

The execute form of the BUILDRCD macro is written t 





BUILDRCD 






. fnumbSr^of^uf f ers 1 

fCbyff^r l^nqthl 

•[record area address! 
.[record area lenathl 
.MFsCE.flist addresslfini 



area address — RX-Type Address or (2-12) 

nvmbgr of btiffgrs — ^absexp 
bMffgr length — absexp 

record area address — RX-Type Address or (2-12) 
record area lena-th— a bsexp 

MF= ( E, Clist gddr^gs M 1 ) J ) 

This operand specifies that the execute form of the 
BUILDRCD macro instruction is used/ and an existing 
parameter list (created by a list-form instruction) will be 
used. The HFs operand is coded as described in the 
fol lowing i 

E 

list address — RX-Type Address, (2-12), or (1) 
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CHECK 



CHECK— WAIT FOR AND TEST COMPLETION OF A READ OR WRITE OPERATION fB DAM. BISAM. BPAH. 

The CHECK macro causes the active task to be placed in the wait 
condition^ if necessary^ until the associated input or output 
operation is completed. The input or output operation is then 
tested for errors and exceptional conditions. If the operation 
is completed successf ully^ control is returned to the 
instruction following the CHECK macro. If the operation is not 
completed successf ully» the error analysis (SYNAD) routine is 
given control or, if no error analysis routine is provided, the 
task is abnormally terminated. The error analysis routine is 
discussed in the SYNAD operand of the DCB macro. 

The following conditions are also handled for BPAM and BSAM 
only t 

When Reading: The end-of-data (EODAD) routine is given control 
if an input request is made after all the records have been 
retrieved. Volume switching is automatic for a BSAM data set 
that is not opened for UPDAT. For a BSAM data set that is 
opened for update, the end~of-data routine is entered at the end 
of each volume. 

When Vfriting: Additional space on the device is obtained when 
the current space is filled and more WRITE macro instructions 
have been issued. 

For BPAM and BSAM, a CHECK macro must be issued for each input 
and output operation, and must be issued in the same order as 
the READ or WRITE macros were issued for the data set. For BDAM 
or BISAM, either a CHECK or a WAIT macro can be used. For 
information on when the WAIT macro can be used, see Pata 

Adminastr^tipn Otiide. 

If the ISCII/ASCII translation routines are included when the 
operating system is generated, translation can be requested by 
coding LABEL=(,AL) or CAUL) in the DD statement, or it can be 
requested by coding OPTCD=Q in the DCB macro or DCB subparameter 
of the DD statement. If translation is requested, the check 
routine automatically translates BSAM records, as they are read, 
from ISCII/ASCII code to EBCDIC code, provided that the record 
format is F, FB, D, DB, or U. Translation occurs as soon as the 
check routine determines that the input buffer is full. For 
translation to occur correctly, all input data must be in ISCII 
or ASCII code. 

The CHECK macro is written: 





CHECK 


decb ?iddr«s? 






[,DS0RG={ISiALL}3 



decb address — RX-Type Address, (2-12), or (1) 

The decb address operand specifies the address of the data 
event control block created by the associated READ or WRITE 
macro or used by the associated input or output operation. 

DSORGs{IS|ALL> 

The DSORG operand specifies the type of data set 
organization. The following describes the characters that 
can be coded: 

ZS 

Specifies that the program generated is for BISAM use 
only. 

ALL 

Specifies that the program generated is for BDAM, 
BISAM, BPAM, or BSAM use. 

If the DSORG operand is omitted, the program generated is 
for BDAM, BPAM, or BSAM use only. 
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CHKPT 



CHKPT— TAKE A CHECKPOINT FOR RESTART WITHIN A JOB STEP 

The CHKPT macro is coded in-line in the problem program. Hhen 
this macro executes^ the operating system writes a checkpoint 
entry in a checkpoint data set. The entry consists of job step 
information^ such as virtual-storage data areas* data set 
position* and supervisor control* from the problem program. The 
problem program automatically restarts with the instruction 
immediately following the CHKPT macro. 

For details on the CHKPT macro, see Checkpoint/Restart User's 
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CLOSE 

CLOSE—LOGI CALLV DISCONNECT A DATA SET (BDAM. BISAM. BPAM. BSAM> QISAM> AND QSAM) 



The CLOSE macro causes output data set labels to be created and 
volumes to be positioned as specified by the user. The fields 
of the data control block are restored to the condition that 
existed before the OPEN macro was issued^ and the data set is 
disconnected from the processing program. Final volume 
positioning or disposition for the current volume can be 
specified to override the positioning implied by the DD control 
statement DISP parameter. Any number of deb address operands 
and associated options may be specified in the CLOSE macro. 

Associated data sets for an IBM 3525 Card Punch can be closed in 
any sequence^ bvt, if one data set is closed^ I/O operations 
cannot be initiated for any of its associated data sets. 
Additional information about closing associated data sets is 
contained in D?ta Adminjg-tratign gtiide. 

After a CLOSE has been issued for several data sets» a return 
code of 4 indicates that at least one of the data sets, VSAM or 
non-VSAMy was not closed successfully. 

A FREEPOOL macro should normally follow a CLOSE macro 
instruction (without TYPE=T) to regain the buffer pool storage 
space and to allow a new buffer pool to be built if the DCB is 
reopened with different record size attributes. 

A special operand, TYPEsj, is provided for processing with BSAM. 

The standard form of the CLOSE macro is written as follows (the 
list and execute forms are shown following the description of 
the standard form)t 





CLOSE 


(deb address. loDtion.... 3) 






l,TYPE=T3 






[fM0DEs2^t313 



deb address — A-Type Address or (2-12) 

specifies the address of the data control block for the 
opened data set that is to be closed. 



One of these options indicates the volume positioning that 
is to occur when the data set is closed. This option is 
generally used with the TYPEsT operand or for data sets on 
magnetic tape. However, options specified in the CLOSE 
macro will override disposition specifications in the JCL 
for all data sets. The options mret 

REREAD 

specifies that the current volume is to be positioned 
to reprocess the data set. If processing was forward, 
the volume is positioned to the beginning of the data 
set; if processing was backward (RDBACK), the volume 
is positioned to the end of the data set. If 
FREE=CLOSE is specified in the JCL, the data set is 
not unallocated until the end of the job step. 

LEAVE 

specifies that the current volume is to be positioned 
to the logical end of the data set. If processing was 
forward, the volume is positioned to the end of the 
data set; if processing was backward (RDBACK), the 
volume is positioned to the beginning of the data set. 

REWIND 

specifies that the current magnetic tape volume is to 
be positioned at the load point, regardless of the 
direction of processing. REWIND cannot be specified 
when TYPE=T is specified. If FREE=CLOSE has been 
coded on the DD statement associated with the data set 
being closed, coding the REWIND option will result in 
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CLOSE 



FREE 



DZSP 



the data set being freed at the time it is closed 
rather than at the termination of the job step. 

specifies that the current data set is to be freed at 
the time the data set is closed^ rather than at the 
time the job step is terminated. For tape data setsr 
this means that the volume is eligible for use by 
other tasks or to be demounted. Direct access volumes 
may also be freed for use by other tasks. They may ba 
freed for demounting if (1) no other data sets on the 
volume are open and (2) the volume is otherwise 
demountable. Do not use this option with CLOSE 
TYPEsT. (For other restrictions on the FREE 
parameter » sea ijlL* ) 

specifies that a tape volume is to be disposed of in 
the manner implied by the DD statement associated with 
the data set. Direct access volume positioning and 
disposition are not affected by this parameter. There 
are several dispositions that can be specified in the 
DISP parameter of the DD statement; DXSP can be PASS» 
DELETE^ KEEP> CATLGy or UNCATL6. 

Depending on how the OZSP option is coded in the DD 
statements the current magnetic tape volume will be 
positioned as followst 

DISP Parameter Action 

PASS Forward space to the end of 

data set on the current 
volume. 

DELETE Rewind the current volume. 

KEEPf CATLGy or UNCATLG The volume is positioned as 

for CLOSE REREAD. Note that 
the volume is not rewound and 
unloaded. 

If FREE=CLOSE has been coded in the DD statement 
associated with this data set» coding the DISP option 
in the CLOSE macro will result in the data set being 
freed when the data set is closed^ rather than at the 
time the job step is terminated. 

Note: Hhen the option operand is omitted^ DISP is assumed. 
For TYPE=T» this is processed as LEAVE during execution. 

The LEAVE and REREAD options are meaningless except for 
magnetic tape and CLOSE TYPEsT. 

TYPE=T 

You can code CLOSE TYPE=T to perform some close functions 
for sequential data sets on magnetic tape and direct access 
volumes processed with BSAM. Nhen you use TYPEsT> the DCB 
used to process the data set maintains its open status^ and 
you should not issue another OPEN macro to continue 
processing the same data set. This option cannot be used 
in a SYNAD exit routine. 

The TYPE=:T operand causes the system control program to 
process labels* modify some of the fields in the system 
control blocks for that data set* and reposition the volume 
(or current volume in the case of multivolume data sets) in 
much the same way that the normal CLOSE macro does. Nhen 
you code TYPE=T# you can specify that the volume either be 
positioned at the end of data (the LEAVE option) or be 
repositioned at the beginning of data (the REREAD option). 
Magnetic tape volumes are repositioned either immediately 
before the first data record or immediately after the last 
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CLOSE 



data record; the presence of tape labels has no effect on 
repositioning. 

If you code the RLSE keyword with the SPACE parameter on 
the DD statement that describes the output data set, it is 
ignored by temporary close (CLOSE TYPE'T). If ^he last 
operation occurring prior to the normal CLOSE (without 
TYPEsT) and after the temporary close was a write, then any 
unused space will be released. 

M0DEs2^il31 

You can code CLOSE MODE^Sl to specify a long form parameter 
list that will be able to contain 31-bit addresses. The 
default, H0DE=24, will specify a standard form parameter 
list with 2<4-bit addresses. 

The standard form parameter list is A bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M. It is assumed that all 
ACBs and DCBs are below 16M. 

The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
^-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
IEC290I message will be issued and the data set will not be 
closed. 

Note: It is up to you to keep the mode specified in the 
I1F=L and HF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 

Note: To use the CLOSE macro instruction supplied in the 
MVS/XA macro library on MVS/570, use the SPLEVEL macro 
instruction. You must use the SPLEVEL macro instruction to 
ensure that the MVS/XA version of the CLOSE macro 
instruction executes successfully on MVS/370. For more 
information on how to use the SPLEVEL macros see System 
Macros and Facilities. Volume 2. 

For additional information and coding restrictions, see 
Pg-ta Administra'tapn Pwide. 
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Ci,Q?5— -LIST FORM 

The list form of the CLOSE macro is used to construct a data 
management parameter list. Any number of operands (data control 
block addresses and associated options) can be specified. 

The list consists of a one-word entry for each DCB in the 
parameter list; the high-order byte is used for the options and 
the three low-order bytes are used for the DCB address. The end 
of the list is indicated by a 1 in the high-order bit of the 
last entry's option byte. The length of a list generated by a 
list-form instruction must be equal to the maximum length 
required by an execute-form instruction that refers to the same 
list. A maximum length list can be constructed by one of two 
methods s 

• Code a list-form instruction with the maximum number of 
parameters that are required by an execute-form instruction 
that refers to the list. 

• Code a maximum length list by using commas in a list-form 
instruction to acquire a list of the appropriate size. For 
example^ > coding CLOSE /MF=L would provide a list 
of five fullwords (five deb addresses and five options). 

Entries at the end of the list that are not referenced by the 
execute-form instruction are assumed to have been filled ir> when 
the list was constructed or by a previous execute-form 
instruction. Before using the execute-form instruction^ you may 
shorten the list by placing a 1 in the high-order bit of the 
last DCB entry to be processed. 

A zeroed work area on a word boundary is equivalent to CLOSE 
( * DISP, . . . ) ,MF=L and can be used in place of a list-form 
instruction. The high-order bit of the last DCB entry must 
contain a 1 before this list can be used with the execute-form 
instruction. 

A parameter list constructed by a CLOSE macros list form, can be 
referred to by either an OPEN or CLOSE execute-form instruction. 

The description of the standard form of the CLOSE macro provides 
the explanation of the function of each operand. The 
description of the standard form also indicates the operands 
that are completely optional and those required in at least one 
of the pair of list and execute forms. The format description 
below indicates the optional and required operands in the list 
form only. 

The list form of the CLOSE macro is written* 





CLOSE 


ttd<?b fiddresslrCoptiQnlf ) 






CTYPESTJ 






,MF=L 






C»MODEsMt313 



deb address — A-Type Address 
option — Same as standard form 
TYPE=T 

The TYPE=T operand can be coded in the list-form 
instruction to allow the specified option to be checked for 
validity when the program is assembled. 

MFsL 

The MF=L operand specifies that the CLOSE macro instruction 
is used to create a data management parameter list that 
will be referred to by an execute-form instruction. 
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M0DE=^|31 

You can code CLOSE M0DE=31 to specify a long form parameter 
list that will be able to contain 31-bit addresses. The 
defaults M0DE=2A, will specify a standard form parameter 
list with 24-bit addresses. 

The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M» but the 
calling program may be above 16M. It is assumed that all 
ACBs and DCBs are below 16M. 

The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte^ zeros in the next three bytes^ and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
4-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs/ all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
IEC290I message will be issued and the data set will not be 
closed. 

Note: It is up to you to keep the mode specified in the 
MF=L and MFsE versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 
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CLOSE— EXECUTE FORM 

A list form of the CLOSE macro is used in and can be modified by 
the execute form of the CLOSE macro. The parameter list can be 
generated by the list form of either an OPEN macro or a CLOSE 
macro. 

The description of the standard form of the CLOSE macro provides 
the explanation of the function of each operand. The 
description of the standard form also indicates the operands 
that are totally optional and those required in at least one of 
the pair of list and execute forms. The format description 
below indicates the optional and required operands in the 
execute form only. 

The execute form of the CLOSE macro is written: 





CLOSE 


CCCdci;^ 3ddr^SSJ»toDtion3»... )1 




t,TYPE=Tl 

,MF=(E,{addr?5S of list formltl)}) 
C,M0DE=2^|31] 



deb address — RX-Type Address or (2-12) 

option — If specified/ same as the standard form. If not 
specified/ the option specified in the list form of the CLOSE 
macro will be used. 

TYPE=T — Same as standard form. 

MF=(E,{^ddregg 9f the list formUD}) 

specifies that the execute form of the CLOSE macro 
instruction is being used/ and the parameter list is 
created by the list form of the CLOSE macro instruction. 
The MFs operand is coded as described in the following: 

E 

address of the list form of the CLOSE (or OPEN) macro 
instruction — RX-Type Address, (2-12), or (1) 

H0DE=^i31 

You can code CLOSE M0DE=31 to specify a long form parameter 
list that will be able to contain 31-bit addresses. The 
default, M0DE=24, will specify a standard form parameter 
list with 24-bit addresses. 

The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16N. It is assumed that all 
ACBs and DCBs are below 16M. 

The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
4-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
IEC290I message will be issued and the data set will not be 
closed. 

Note: It is up to you to keep the mode specified in the 
liFsL and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 
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CNTRL 



The CNTRL macro is used to control magnetic tape drives (BSAM 
only for a data set that is not open for output)* on-line card 
readers* IBM 3525 Card Punches (read and print features)* 
printers (BSAM and QSAM), and the IBM 3890 Document Processor 
(QSAM only). For information on additional operands for the 
CNTRL macro for the 3890* see IBM 3890 Document Processor 
Machine and Programming Description. 

The MACRF operand of the DOB macro must specify a C. The CNTRL 
macro is ignored for SYSIN or SYSOUT data sets. For BSAM* all 
input and output operations must be tested for completion before 
the CNTRL macro is issued. The control facilities available are 
as follows: 

Card Reader: Provides stacker selection* as follows: 

QSAM — For unblocked records* a CNTRL macro should be issued 
after every input request. For blocked records* a CNTRL macro 
is issued after the last logical record on each card that is 
retrieved. Whether reading blocked or unblocked records* do not 
issue a CNTRL macro after a GET macro has caused control to pass 
to the EODAD routine. The move mode of the GET macro must be 
used* and the number of buffers (BUFNO field of the DCB) must be 
1. If a CLOSE macro is issued before the last card is read* the 
operator should clear the reader before the device is used 
again. 

BSAM — The CNTRL macro should be issued after every input 
request . 

Printer: Provides line spacing or a skip to a specific carriage 
control channel. A CNTRL macro cannot be used if carriage 
control characters are provided in the record. If the printer 
contains the universal character set feature* data checks should 
be blocked (OPTCD=U should not appear in the data control 
block). 

Magnetic Tape: Provides method of forward spacing and 
backspacing (BSAM only for a data set that is not open for 
output). If OPTCD=H is indicated in the data control block* the 
CNTRL macro can be used to perform record positioning on DOS 
tapes that contain embedded checkpoint records. Embedded 
checkpoint records encountered during the record positioning are 
bypassed and are not counted as blocks spaced over. OPTCD=H 
must be specified in a job control language DD statement. The 
CNTRL macro cannot be used to backspace DOS 7-track tapes that 
are written in data convert mode that contain embedded 
checkpoint records (BSAM). 

Note: The CNTRL macro should not be used with output operations 
on BSAM tape data sets. 

3525 Printing: Provides line spacing or a skip to a specific 
printing line on the card. The card contains 25 printing lines; 
the odd-numbered lines 1 through 23 correspond to the printer 
skip channels 1 through 12 (see the SK operand). For additional 
information about 3525 printing operations* see OS and OS/VS 
Programming Support for the IBM 3505 Card Reader and IBM 3525 

Card Pvtnch« 
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The CNTRL macro is written* 





CNTKL 








{,SS,{1|2>1 






{,SP,{l|2i3>} 






C>SK, {1121.. .111112}} 






C»BSH} 






C»FSH} 






{>BSRC> number of blocks!} 






{fFSRCy number of blocks!} 



deb address 

The deb address operand specifies the address of the data 

control block for the data set opened for the on—line 
device. 

SS,{1|2} 

The SS operand is coded as shown to indicate that the 
control function requested is stacker selection on a card 
reader; either 1 or 2 must be coded to indicate which 
stacker is to be selected. 

SP,{lt2i3} 

The SP operand is coded as shown to indicate that the 
control function requested is printer line spacing or 3525 
card punch line spacing; either 1; Zr or 3 must be coded to 
indicate the number of spaces for each print line. 

SK,{l|2i... 111112} 

The SK operand is coded as shown to indicate that the 
control function requested is a skip operation, on the 
printer or 3525 card punch/ print feature; a number (1 
through 12) must be coded to indicate the channel or print 
line to which the skip is to be taken. 



BSN 



FSH 



BSR 



FSR 



The BSM operand indicates that the control function 
requested is to backspace the magnetic tape past a 
tapemark> then forward space over, the tapemark. Mhen this 
operand is specified, the DCBBLKCT field in the data 
control block is set to zero. 

The FSN operand indicates that the control function 
requested is to forward space the magnetic tape over a 
tapemarky then backspace past the tapemark. Nhen this 
operand is specif ied» the DCBBLKCT field in the data 
control block is set to zero. 

The BSR operand indicates that the control function 
requested is to backspace the magnetic tape the number of 
blocks indicated in the number-'of "blocks operand. 

The FSR operand indicates that the control function 
requested is to forward space the magnetic tape the number 
of blocks indicated in the number-of-blocks operand. 

number of blocks — symbol, decimal digit, absexp> or (2-12) 
The number^of -blocks operand specifies the number of 
blocks to backspace (see BSR operand) or forward space- 
(see FSR operand) the magnetic tape. The maximum 
value that can be specified is 32767. If the 
number-of-blocks operand is omitted, 1 is assumed. 
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If the forward space or backspace operation is not completed 
successfully^ control is passed to the error analysis (SYNAD) 
routine; if no SYNAD exit routine is designated^ the task is 
abnormally terminated. Register contents^ when control is 
passed to the error analysis routine* are shown in 
Appendix A, "Status Information Following an Input/Output 
Operation** on page 192. If a tapemark is encountered for BSR or 
fSR, control ir. returned to the processing program* and register 
15 contains a count of the uncompleted forward spaces or 
backspaces. If the operation is completed normally* register 15 
contains the value zero. 
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PCB— CONSTRUCT A DATA CONTROL BLOCK (BDAMl 

The data control block for a basic direct access method (BDAM) 
data set is constructed during assembly of the problem program. 
The DSORG and MACRF operands must be coded in the DCB macro 
instruction* but the other operands can be supplied from the DD 
statement or an existing data set label (DSCB). If more than 
one of these sources specifies information for a particular 
field* the order of priority is the DCB macro instruction* DD 
statement* and data set label. Each of the BDAM DCB operand 
descriptions contains a heading* "Source.** The information 
under this heading describes the sources from which an operand 
can be supplied to the data control block* 



Th« DCB macro for BDAM is writ tan: 




CBFALNsCPlfi}] 

C»BFTEK=R] 

I»BLKSIZE= abaaxp l 

UBUFCBsnaiiiir 

JtBUFLSaSsSSl, 
[»BUFNO= absexp l 
[>DONAHE=ivm^]^ 

»dsor6=coaTdauT 

C t EXLST=r£ls2<E3 
[fKEYLEN= ab3exp l 
C f LIHCT= ab5exp 3 

,MACRF=€C(RCKCX]|Z}CXHS]CCn} 
C(UCACK]IX]|K(Z]|I}CC])} 

C(RCKKZ]|X}[X]CS][C],U€A[K]CZ]|KCZ]|Z}Ccn} 
CtOPTCDsCIRlAHElCFHU]]} 
C>RECFHsCUiVtSiBS]|FCT]}l 
C>SYNADSrfii£)ie] 



* This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

The following describes the DCB operands that can be specified 
for creating and processing a BDAM data set: 

BFALN={F|D> 

The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool. The BFALN operand can be 
specified when (1) BSAM is being used to create a BDAM data 
set and buffers are acquired automatically* (2) when an 
existing BDAM data set is being processed and dynamic 
buffering is requested* or (3) when the GETPOOL macro 
instruction is used to construct the buffer pool. If the 
BFALN operand is omitted* the system provides doubleword 
alignment for each buffer. The following describes the 
characters that can be specified: 

F 

specifies that each buffer is aligned on a fullword 
boundary that is not also a doubleword boundary. 



specifies that each buffer is aligned on a doubleword 

boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool or if the problem program controls all 
buffering* the problem program must provide the area for 
the buffers and control buffer alignment. 

Source: The BFALN operand can be supplied in the DCB macro 
instruction* in the DCB subparameter of a DD statement* or 
by the problem program before completion of the data 
control block exit routine. If both the BFALN and BFTEK 
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operands are specified/ they must be supplied from the same 
source. 

BFTEK=R 

The R value coded for the BFTEK operand specifies that the 

data set is being created for or contains variable-length 

spanned records. The BFTEK operand can be coded only when 

the record format is specified as RECFH=VS. 

Nhen variable-length spanned records are written^ the data 
length can exceed the total capacity of a single track on 
the direct access device being used» or it can exceed the 
remaining capacity on a given track. The system divides 
the data block into segments (if necessary) » writes the 
first segment on a tracks and writes the remaining 
segment(s) on the following trackCs) . 

When a variable-length spanned record is read, the system 
reads each segment and assembles a complete data block in 
the buffer designated in the area address operand of a READ 
macro instruction. 

Note: Variable-length spanned records can also be read 
using 6SAM. When BSAM is used to read a BDAM 
variable-length spanned records the record is read one 
segment at a time, and the problem program must assemble 
the segments into a complete data block. This operation is 
described in the section for the BSAM DCB macro 
instruction . 

Source: The BFTEK operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFTEK and BFALN 
operands are specified, they must be supplied from the same 
source. 

BLKSIZE= absexp (maximum value is 32760) 

The BLKSIZE operand specifies the length, in bytes, of each 
data block for fixed-length records, or it specifies the 
maximum length, in bytes, of each data block for 
variable-length or undefined-length records. If keys are 
used, the length of the key is not included in the value 
specified for the BLKSIZE operand. 

The actual value that can be specified in the BLKSIZE 
operand depends on the record format and the type of direct 
access device being used. If track overflow is used or if 
variable-length spanned records are used, the value 
specified in the BLKSIZE operand can be up to the maximum. 
For all other record formats (F, V, VBS, and U), the 
maximum value that can be specified in the BLKSIZE operand 
is determined by the track capacity of a single track on 
the direct access device being used. Device capacity for 
direct access devices is described in Appendix C, "Device 
Capacities" on page 19^ of this publication. For 
additional information about device capacity and space 
allocation, see Data Administration Guide. 

Source: The BLKSIZE operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before completion of the 
data control block exit routine, or by the data set label 
of an existing data set. 

BUFCB=£jaLjB2^ 

The BUFCB operand specifies the address of the buffer pool 
control block when the buffer pool is constructed by a 
BUILD macro instruction. 

If the buffer pool is constructed automatically, 
dynamically, or by a GETPOOL macro instruction, the system 
places the address of the buffer pool control block into 
the data control block, and the BUFCB operand is not 
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required. The BUFCB operand is not required if the problem 
program controls all buffering. 

Source: The BUFCB operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 

BUFLSahs£2Sfi (maximum value KEYLEN -i- BLKSIZE is 32760) 

The BUFL operand specifies the lengthy in bytes» of each 
buffer in the buffer pool when the buffers are acquired 
automatically (create BDAM) or dynamically (existing BDAM) . 

When buffers are acquired automatically (create BDAM)# the 
BUFL operand is optional; if specif ied> the value must be 
at least as large as the sum of the values specified for 
the KEYLEN and BLKSIZE operands. If the BUFL operand is 
omitted^ the system constructs buffers with a length equal 
to the sum of the values specified in the KEYLEN and 
BLKSIZE operands. 

The BUFL operand must be specified when an existing BDAM 
data set is being processed and dynamic buffering is 
requested. Its value must be at least as large as the 
value specified for the BLKSIZE operand when the READ or 
WRITE macro instruction specifies a key address^ or the 
value specified in the BUFL operand must be at least as 
large as the sum of the values specified in the KEYLEN and 
BLKSIZE operands if the READ and WRITE macro instructions 
specify *S* for the key address. 

The BUFL operand can be omitted if the buffer pool is 
constructed by a BUILD or GETPOOL macro instruction or if 
the problem program controls all buffering. 

Source: The BUFL operand can be supplied in the DCB macro 
instruction* in the DCB subparameter of a DD statements or 
by the problem program before completion of the data 
control block exit routine. 

BUFNQs absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers to be 
constructed by a BUILD macro instruction* or it specifies 
the number of buffers and/or segment work areas to be 
acquired by the system. 

If the buffer pool is constructed by a BUILD macro 
instruction or if buffers are acquired automatically when 
BSAM is used to create a BDAM data set* the number of 
buffers must be specified in the BUFNO operand. 

If dynamic buffering is requested when an existing BDAM 
data set is being processed* the BUFNO operand is optional; 
if omitted* the system acquires two buffers. 

If variable-length spanned records are being processed and 
dynamic buffering is requested* the system also acquires a 
segment work area for each buffer. If dynamic buffering is 
not requested* the system acquires the number of segment 
work areas specified in the BUFNO operand. If the BUFNO 
operand is omitted when variable-length spanned records are 
being processed and dynamic buffering is not requested* the 
system acquires two segment work areas. 

If the buffer pool is constructed by a GETPOOL macro 
instruction or if the problem program controls all 
buffering* the BUFNO operand can be omitted* unless it is 
required to acquire additional segment work areas for 
variable- length spanned records. 

Source: The BUFNO operand can be supplied in the DCB macro 
instruction* in the DCB subparameter of a DD statement* or 
by the problem program before completion of the data 
control block exit routine. 
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DDNAME=syi3bal 

The DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 

Source: The DDNAHE operand can be supplied in the DCB macro 
instruction or can be moved into the DCB by the problem 
program before an OPEN macro instruction is issued to open 
the data set. 

DSORG^CDAIDAU} 

The DSORG operand specifies the data set organization and 
whether the data set contains any location-dependent 
information that would make it unmovable. For example^ if 
actual device addresses are used to process a BDAM data 
set> the data set may be unmovable. The following 
describes the characters that can be specified! 

DA 

specifies a direct organization data set. 

DAU 

specifies a direct organization data set that contains 
location-dependent information. 

Hhen a BDAM data set is created^ the basic sequential 
access method (BSAM) is used. The DSORG operand in the DCB 
macro instruction must be! coded as DSORG=PS or PSU when the 
data set is created/ and the DCB subparameter in the 
corresponding DD statement must be coded as DSORG=DA or 
DAU. This creates a data set with a data set label 
identifying it as a BDAM data set. 

Source: The DSORG operand must be specified in the DCB 
macro instruction. See the preceding comment about 
creating a BDAM data set. 

EXLSTsji^Xfi 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand must be specified if 
the problem program processes user labels during the open 
or close routine, if the data control block exit routine is 
used for additional processing, or if the DCB abend exit is 
used for abend condition analysis. 

For the format and requirements of exit list processing, 
see Appendix D, "DCB Exit List Format and Contents" on 
page 197. For additional information about exit list 
processing, see Data A;<mini5tratign Quide- 

Source: The EXLST operand can be supplied in the DCB macro 
instruction or by the problem program before the exit is 
needed. 

KEYLENs absexp (maximum value is 255) 

The KEYLEN operand specifies the length, in bytes, of all 
keys used in the data set. Mhen keys are used, a key is 
associated with each data block in the data set. If the 
key length is not supplied by any source, no input or 
output requests that require a key can be specified in a 
READ or NRITE macro instruction. 

Source: The KEYLEN operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before the completion of 
the data control block exit routine, or by an existing data 
set label. If KEYLEN=0 is specified in the DCB macro 
instruction, a special indicator is set in RECFH so that 
KEYLEN cannot be supplied from the DCB subparameter of a DD 
statement or data set label of an existing data set. 
KEYLENsQ can be coded only in the DCB macro instruction and 
will be ignored if specified in the DD statement. 
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LZMCT=al2Sfi2$S 

The LZHCT operand specifies the number of blocks or tracks 
to be searched when the extended search option (OPTCO=E) is 
requested. 

Mhen the extended search option is requested and relative 
block addressing is used» the records must be fixed- length 
record format. The system converts the number of blocks 
specified in the LIMCT operand into the. number of tracks 
required to contain the blocks^ then proceeds in the manner 
described below for relative track addressing. 

When the extended search option is requested and relative 
track addressing is used (or the number of blocks has been 
converted to the number of tracks) » the system searches for 
two things: (a) the block specified in a READ or HRITE 
macro instruction (type PK)/ or (b) available space where 
it can add a block (HRITE macro instruction^ type OA). The 
search is as follows: 

1. The search begins at the track specified by the block 
address operand of a READ or NRITE macro instruction. 

2. The search continues until the search is satisfied^ the 
number of tracks specified in the LIMCT operand have 
been searched^ or the entire data set has been 
searched. If the search has not been satisfied when 
the last track of the data set is reached> the system 
continues the search by starting at the first track of 
the data set if the EOF marker is on the last track 
that was allocated to the data set. (This operation 
allows the number specified in the LIMCT operand to 
exceed the size of the data set^ causing the entire 
data set to be searched.) You can ensure that the EOF 
marker is on the last allocated track by determining 
the size of the data set and allocating space in 
blocks/ or by allocating space in tracks and including 
the RLSE parameter on the SPACE operand of the DD 
statement (RLSE specifies that all unused tracks be 
returned to the system). 

The problem program can change the DCBLIMCT field in the 
data control block at any time^ but^ if the extended search 
option is used/ the DCBLIMCT field must not be zero when a 
READ or HRITE macro instruction is issued. 

If the extended search option is not requested/ the system 
ignores the LIMCT operand/ and the search for a data block 
is limited to a single track. 

Source: The LIMCT operand can be supplied in the DCB macro 
instruction/ the DCB subparameter of a DD statement/ or by 
the problem program before the count is required by a READ 
or NRITE macro instruction. 

MACRF={{(R{KCI]|I}CXHS][Cn> 
{(W{ACKHI]iKCI]|I}CCn> 

{(R{KCI]lI>[X]CSHC],WCA[Kni]|K[I]|nCC])>} 
The MACRF operand specifies the type of macro instructions 
(READ/ HRITE/ CHECK, and HAIT) used when the data set is 
processed. The MACRF operand also specifies the type of 
search argument and BDAM functions used with the data set. 
When BSAM is used to create a BDAM data set/ the BSAM 
operand MACRF=V/L is specified. This special operand 
invokes the BSAM routine that can create a BDAM data set. 
The following describes the characters that can be 
specified for BDAM: 

A 

specifies that data blocks are to be added to the data 
set. 
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C 

specifies that CHECK macro instructions are used to 
test for completion of read and write operations. If 
C is not specified/ NAIT macro instructions must be 
used to test for completion of read and write 
operations. 

Z 

specifies that the search argument is to be the block 
identification portion of the data block. If relative 
addressing is used^ the system converts the relative 
address to a full device address (MBBCCHHR) before the 
search. 

K 

specifies that the search argument is to be the key 
portion of the data block. The location of the key to 
be used as a search argument is specified in a READ or 
WRITE macro instruction. 

R 

specifies that READ macro instructions are to be used. 
READ macro instructions can be issued when the data 
set is opened for INPUT, OUTPUT, or UPDAT. 

S 

specifies that dynamic buffering is requested by 
specifying *S' in the area address operand of a READ 
or WRITE macro instruction. 

W 

specifies that WRITE macro instructions are used. 
WRITE macro instructions can be issued only when the 
data set is opened for OUTPUT or UPDAT. 

X 

specifies that READ macro instructions request 
exclusive control of a data block. When exclusive 
control is requested, the data block must be released 
by a subsequent WRITE or RELEX macro instruction. 

Source: The HACRP operand must be supplied in the DCB 
macro instruction. 

OPTCD={ CRI A] CEl [F] [W]> 

The OPTCD operand specifies the optional services that are 
to be used with the BDAM data set. These options are 
related to the type of addressing used, the extended search 
option, block position feedback, and write-validity 
checking. The following describes the characters that can 
be specified (the characters can be specified in any order, 
and no commas are allowed between characters)! 

A 

specifies that actual device addresses (MBBCCHHR) are 
provided to the system when READ or WRITE macro 
instructions are issued. 

E 

specifies that the extended search option is used to 
locate data blocks or available space where a data 
block can be added. When the extended search option 
is specified, the number of blocks or tracks to be 
searched must be specified in the LIMCT operand. The 
extended search option is ignored if actual addressing 
COPTCD=A) is also specified. The extended search 
option requires that the data set have keys and that 
the search be made by key (by specifying DK in the 
READ or WRITE macro or DA in the WRITE macro). 

F 

specifies that block position feedback requested by a 
READ or WRITE macro instruction is to be in the same 
form that was originally presented to the system in 



Macro Instruction Descriptions 35 



DCB (BDAM) 



the READ or WRITE macro instruction. If the F operand 
is omitted* the system provides feedback* when 
requested* in the form of an 8-byte actual device 
address. (Feedback is always provided if exclusive 
control is requested.) 

R 

specifies that relative block addresses (in the form 
of S-byte binary numbers) are provided to the system 
when a READ or WRITE macro instruction is issued. 

W 

specifies that the system is to perform a validity 
check for each record written. 

Notes Relative track addressing can only be specified by 
omitting both A and R from the OPTCD operand. If you want 
to specify relative track addressing after your data set 
has been accessed using another addressing scheme (OPTCD^A 
or R)* you should either specify a valid OPTCD operand (E» 
Ff or W) in the DCB macro or DD card when you reopen your 
data set* or zero out the OPTCDsA or R bits in the data 
control block exit routine. Note that the first method 
will prevent the open routines from merging any of the 
other OPTCD bits from the format-1 DSCB in the DCB. Both 
methods will update the OPTCD in the DSCB if the open is 
for OUTPUT* OUTIN, or UPDAT. 

Source: The OPTCD operand can be supplied in the DCB macro 
instruction* in the DCB subparameter of a DD statement* or 
by the problem program before completion of the DCB open 
exit routine. 

RECFHsCUlVCSiBSnFCm 

The RECFN operand specifies the format and characteristics 
of the records in the data set. The following describes 
the characters that can be coded (if the optional 
characters are coded* they must be coded in the order shown 
above)* 

B 

specifies that the data set contains blocked records. 
The record format RECFM=VBS is the only combination in 
which B can be specified. RECFMsVBS does not cause 
the system to process spanned records* the problem 
program must block and segment the records. RECFNsVBS 
is treated as a variable-length record by BDAH. 

F 

specifies that the data set contains fixed-length 
records. 

8 

specifies that the data set contains variable-length 
spanned records when it is coded as RECFM=VS. When 
RECFMsVBS is coded* the records are treated as 
variable-length records* and the problem program must 
block and segment the records. 

T 

specifies that track overflow is to be used with the 
data set. Track overflow allows a record to be 
partially written on one track and the remainder is 
written on the following track (if required). 

U 

specifies that the data set contains undefined-length 
records. 

V 

specifies that the data set contains variable-length 
records. 
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Source: The RECFN operand can be supplied in the DCB macro 
instruction^ in the DCB subparameter of a DD statement, the 
problem program before completion of the data control block 
exit routine^ or by the data set label of an existing data 
set. 

SYNAD=i:ftl£XE 

The SYNAD operand specifies the address of the error 
analysis routine to be given control when an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation" on page 192. 

The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 1^ to return control to the 
system. When control is returned in this manner, the 
system returns control to the problem program and proceeds 
as though no error had been encountered. Nhen a BDAM data 
set is being created, a return from the error analysis 
routine to the system causes abnormal termination of the 
task. 

If the SYNAD operand is omitted, the task is abnormally 
terminated when an uncorrectable input/output error occurs. 

Source: The SYNAD operand can be supplied in the DCB macro 
instruction or by the problem program. The problem program 
can also change the error routine address at any time. 
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DCB~CONSTRUCT A DATA CONTROL BLOCK (BISAMl 



The data control block for the basic indexed sequential access 
method (BISAM) is constructed during assembly of the problem 
program. The SSORG and MACRF operands must be coded in the DCB 
macro instruction^ but the other DCB operands can be supplied 
from other sources. Each BISAM DCB operand description contains 
a heading^ "Source." The information under this heading 
describes the sources of the operand that can be supplied to the 
data control block. 

The DCB macro for BISAM is written t 





OCB 


tBFALN={FlBJ] 




t,BUFCB=i:fiiSKEl 






[,BUFL=ahse)^p3 






t,BUFN0=aMjg2SEl 






t,DDNAME=sionfeail» 






»DSORG=IS 






CEXLSTsnele^iBl 






»MACRFs{{(R[S]CCn} 






{(VKUCAnAllCni 






{(R[UIS]|SHC3»WCUCA3|A}[Cn}} 






C»MSHI=i:sifi21fi3 






[,riswA=i:ai£2isl 












,OPTCD=C(CLHRHWn} 












C,SMSVi=absexpJ 






t,SYNAD=£si^l 



' This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

The following describes the DCB operands that can be supplied 
when the basic indexed sequential access method is usedt 

BFALN={FiD> 

The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool when the buffer pool is acquired 
for use with dynamic buffering or when the buffer pool is 
constructed by a GETPOOL macro instruction. If the BFALN 
operand is omitted^ the system provides doubleword . 
alignment for each buffer. The following describes the 
characters that can be specified! 

F 

specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 

0 

specifies that each buffer is on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool, or the problem program controls all buffering* 
the problem program must provide an area for the buffers 
and control buffer alignment. 

Source: The BFALN operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statements or 
by the problem program before completion of the data 
control block exit routine. 

BUFCB=rg Ux P 

The BUFCB operand specifies the address of the buffer pool 
control block when the buffer pool is constructed by a 
BUILD macro instruction. 

If dynamic buffering is requested or the buffer pool is 
constructed by a GETPOOL macro instruction, the system 
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places the address of the buffer pool control block into 
the data control blocks and the BUFCB operand must be 
omitted. The BUFCB operand must be omitted if the problem 
program controls all buffering. 

Source: The BUFCB operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 

BUFLg ab^e>^ p (maxiirum value is 3276 0) 

The BUFL operand specifies the length of each buffer to be 
constructed by a BUILD or GETPOOL macro instruction. When 
the data set is opened/ the system computes the minimum 
length required and verifies that the length in the buffer 
pool control block is equal to or greater than the minimum 
required. The system then inserts the computed length into 
the BUFL field of the data control block. 

If dynamic buffering is requested^ the system computes the 
buffer length required^ and the BUFL operand is not 
required. 

If the problem program controls all buffering/ the BUFL 
operand is not required. However* an ISAM data set 
requires additional buffer space for system use. For a 
description of the buffer length required for various ISAM 
operations, see Data Administration Guide. 

Source: The BUFL operand can be supplied in the DCB macro 
instruction/ in the DCB subparameter of a DD statement/ or 
by the problem program before completion of the data 
control block exit routine. 

BUFNQs absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers requested 
for use with dynamic buffering/ or it specifies the number 
of buffers to be constructed by a BUILD macro instruction. 
If dynamic buffering is requested but the BUFNO operand is 
omitted/ the system automatically acquires two buffers for 
use with dynamic buffering. 

If the GETPOOL macro instruction is used to construct the 
buffer pool/ the BUFNO operand is not required. 

Source: The BUFNO operand can be supplied in the DCB macro 
instruction/ in the DCB subparameter of a DD statement/ or 
by the problem program before completion of the data 
control block exit routine. 

DDNAME=symbal 

The DDNANE operand specifies the name used to identify the 
job control language data definition statement that defines 
the ISAM data set to be processed. 

Source: The DDNAME operand can be supplied in the DCB 
macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 

DS0R6=IS 

The DS0R6 operand specifies the indexed sequential 
organization of the data set. ZS is the only combination 
of characters that can be coded for BISAM. 

Source: Unless it is for a data set passed from a previous 
job steP/ the DSORG operand must be coded in the DCB macro 
instruction and in the DCB subparameter of a DD statement. 
In this case, DSORG may be omitted from the DD statement. 

EXLST=rfiljS2<E 

The EXLST operand specifies the address of the problem 
program exit list. If the problem program uses the data 
control block exit routine for additional processing/ the 
EXLST operand is required. 
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For the format and requirements for exit list processing^ 
see Appendix "DCB Exit List Format and Contents" on 
page 197. For additional information about exit list 

processing, see Pata A^lniinigtratagn gwida* 

Source: The EXLST operand can be supplied in the DCB macro 
instruction or by the problem program before the associated 
exit is required. 

MACRFsCCCRCSHC])} 

C(W{UtA]|A}CCn} 

C(RCU[S]iSlCC],W{UCA]|A}CC])}} 
The MACRF operand specifies the type of macro instructions 
(READ, NRITE, CHECK, MAIT, and FREEDBUF) and type of 
processing (add records, dynamic buffering, and update 
records) to be used with the data set being processed. The 
operand can be coded in any of the combinations shown 
above; the following describes the characters that can be 
codedt 

A 

specifies that new records are to be added to the data 
set. This character must be coded if NRITE KN macro 
instructions are used with the data set. 

C 

specifies that the CHECK macro instruction is used to 
test I/O operations for completion. If C is not 
coded, HAIT macro instructions must be used. 

R 

specifies that READ macro instructions are to be used. 

S 

specifies that dynamic buffering is requested in READ 
macro instructions. S should not be specified if the 
problem program provides the buffer pool. 

U 

specifies that records in the data set will .be updated 
in place. If U is coded in combination with R» it 
must also be coded in combination with W. For 
example, MACRFs(RU,WU) . 

M 

specifies that WRITE macro instructions are to be 
used. 

Source: The MACRF operand must be coded in the DCB macro 
instruction. 

MSHI=r:fiifi21B 

The MSHZ operand specifies the address of the storage area 
used to contain the highest-level master index for the data 
set. The system uses this area to reduce the search time 
required to find a given record in the data set. The MSHX 
operand is coded only when the SMSZ operand is coded. 

Source: The MSHX operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 

MSWA=r£lfl2Sfi 

The MSVfA operand specifies the address of the storage work 
area to be used by the system when new records are being 
added to the data set. This operand is optional, but the 
system acquires a minimum-size work area if the operand is 
omitted. The MSVIA operand is coded only when the SMSW 
operand is coded. 

Processing efficiency can be increased if more than a 
minimum-size work area is provided. For more detailed 
information about work area size, see Data Administration 
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Note: QISAM uses the DCBMSNA, DCBSMSI, and DCBSMSH fields 
in the data control block as a work area; these fields 
contain meaningful information only when the data set is 
opened for BISAM. 

Source: The MSV/A operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 

NCPS absexp (maximum value is 99) 

The NCP operand specifies the maximum number of READ/HRITE 
macro instructions that are issued before the first CHECK 
(or NAIT) macro instruction is issued to test for 
completion of the I/O operation. The maximum number that 
can be specified may be less than 99/ depending on the 
amount of virtual storage available in the region. If the 
NCP operand is omitted/ 1 is assumed. If dynamic buffering 
is used/ the value specified for the NCP operand must not 
exceed the number of buffers specified in the BUFNO 
operand. 

Source: The NCP operand can be supplied in the DCB macro 
instruction/ in the DCB subparameter of a DD statement/ or 
by the problem program before completion of the data 
control block open exit routine. 

OPTCD={[L][R][W]} 

The OPTCD operand specifies the optional services performed 
by the control program. All optional services must be 
requested by one method; that is, by the data set label of 
an existing data set/ this macro/ or the DD statement on 
the DCB parameter. However/ it can be modified by the 
problem program. The characters may be coded in any order 
and/ when used in combination/ no commas are permitted 
between characters. 

L 

specifies that the control program delete records that 
have a first byte of all I's. (These records can be 
deleted when space is required for new records. To 
use the delete option/ the relative key position (RKP) 
must be greater than 0 for fixed-length records and 
greater than <* for variable-length records.) 

R 

specifies that the control program place 
reorganization criteria information in certain fields 
of the data control block. (The problem program can 
analyze these statistics to determine when to 
reorganize the data set. This option is provided 
whenever the OPTCD operand is omitted from all 
sources. ) 

W 

specifies a validity check for write operations on 
direct access devices. 

SMSl= absexp (maximum value is 65535) 

The SMSZ operand specifies the length/ in bytes/ required 
to contain the highest-level master index for the data set 
being processed. The size required can be determined from 
the DCBNCRHI field of the data control block. When an ISAM 
data set is created (with QISAM)/ the size of the 
highest-level index is inserted into the DCBNCRHI field. 
If the value specified in the SMSI operand is less than the 
value in the DCBNCRHI field/ the task is abnormally 
terminated. 

Note: QISAM uses the DCBMSHA/ DCBSMSI/ and DCBSMSH fields 
as a work area; these fields contain meaningful information 
only when the data set is opened for BISAM. 
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Source: The SMSX operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 

SMSVis absexp (maximum value is 65535) 

The StiSW operand specifies the lengthy in bytes* of a work 
area that is used by BISAM. This operand is optional* but 
the system acquires a minimum-size work area if the operand 
is omitted. The SMSW operand is coded only when the tiSWA 
operand is also coded. If the SMSW operand is coded but 
the size specified is less than the minimum required* the 
task is abnormally terminated. Data Administration Guide 
describes the methods of calculating the size of the work 
area. 

If unblocked records are used* the work area must be large 
enough to contain all the count fields (8 bytes each)* key 
fields* and data fields contained on one direct access 
device track. 

If blocked records are used* the work area must be large 
enough to contain all the count fields (8 bytes each) and 
data fields contained on one direct access device track 
plus additional space for one logical record (LRECL value). 

Note: QISAM uses the DCBMSNA* DCBSMSI* and DCBSMSN fields 
in the data control block as a work area; these fields 
contain meaningful information only when the data set is 
opened for BISAM. 

Source: The SMSVf operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 

SYNADsnfiifi^Sfi 

The SYNAD operand specifies the address of the error 
analysis routine given control when an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A* "Status Information Following an 
Input/Output Operation" on page 192. 

The error analysis routine must not use the save area 
pointed to by register 13 because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 1^ to return control to the 
system. When control is returned in this manner* the 
system returns control to the problem program and proceeds 
as though no error had been encountered. If the error 
analysis routine continues processing* the results are 
unpredictable . 

If the SYNAD operand is omitted* the task is abnormally 
terminated when an uncorrectable input/output error occurs. 

Source: The SYNAD operand can be supplied in the DCB macro 
instruction or by the problem program. The problem program 
can also change the error analysis routine address at any 
time. 
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peg— CONSTRVCT A PATA CQNTRQU gWPPK CgPAH? 

The data control block for the basic partitioned access method 
(BPAM) is constructed during assembly of the problem program. 
The DSORG and HACRF operands must be specified in the DCB macro 
instruction^ but the other DCB operands can be supplied from 
other sources. Each of the BPAM DCB operand descriptions 
contains a heading^ "Source." The information under this 
heading describes the sources that can supply the operand to the 
data control block. 

The DCB macro for BPAM is written t 





DOB 


IBFALN={F|C}1 






[»BLKSIZESslzS£2m] 






t,BUFCB=i:fil£2JE3 












[,BUFN0=ahaB2JEl , 






t,DDNAME=Si£mh2iJ» 






»DSORG={PO|POU} 






IfEODADsrfiljaaLBl 






C,EXLST=r£lg2tE] 






t,KEYLEN=aliSSiSEl 






I t LRECLSabsexp] 






»MACRFs{(R|W|R»W)}^ 






I>NCP=ahsS21El 






[»OPTCD=C{C|WCC]} 






{CIHCC]} 






{CiV/[H][C]>}] 






[»RECFM={{U[T][A|M]} 






{VCBCTl |T][A|N]> 






CF[BCT]iT][AiN]}}] 






CSYNADsrfilfiaiEJ 



^ This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

Hhen you create or process a BPAM data set/ you can specify the 
following DCB operands t 

BFALNsCFlfi} 

The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool when the buffer pool is 
constructed automatically or by a GETPOOL macro 
instruction. If the BFALN operand is omitted^ the system 
provides doubleword alignment for each buffer. The 
characters that can be specified in the BFALN operand aret 

F 

specifies that each buffer is aligned on a fullword 
boundary that is not also a doubleword boundary. 



specifies that each buffer is aligned on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool or if the problem program controls all 
buffering^ the problem program must provide an area for the 
buffers and control buffer alignment. 

Source: The BFALN operand can be supplied in the DCB macro 
instruction/ in the DCB subparameter of a DD statement/ or 
by the problem program before completion of the data 
control block exit routine. 

BLKSIZEsglzs^ (maximum value KEYLEN + BLKSIZE is 32760) 

The BLKSIZE operand specifies the length/ in bytes/ of each 
data block for fixed-length records/ or it specifies the 
maximum length/ in bytes/ for variable*-length or 
undefined-length records. If keys are used/ the length of 
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the key is not included in the value specified for the 
BLKSIZE operand. 

The actual block size that can be specified depends on the 
record format and the type of direct access device being 
used. If track overflow is used^ the block size can be up 
to the maximum. If track overflow is not used* the maximum 
block size is determined by the track capacity of a single 
track on the direct access device being used. Device 
capacity for direct access devices is described in 
Appendix C* "Device Capacities** on page 194. For 
additional information about device capacity and space 
allocation, see Data A^lministra-tlon Ovtida- 

For variable-length records, the value specified in the 
BLKSIZE operand must include the maximum logical record 
length Cup to 32756 bytes) plus 4 bytes for the block 
descriptor word (BDH). 

For undefined-length records, the value specified for the 
BLKSIZE operand can be altered by the problem program when 
the actual length becomes known to the problem program. 
The value can be inserted into the DCBBLKSI field of the 
data control block or specified in the length operand of a 
READ/WRITE macro instruction. 

Source: The BLKSIZE operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before completion of the 
data control block exit routine, or by the data set label 
of an existing data set. 

BUFCB=jialA2SE 

The BUFCB operand specifies the address of the buffer pool 
control block when the buffer pool is constructed by a 
BUILD macro instruction. 

If the buffer pool is constructed automatically or by a 
GETPOOL macro instruction, the system places the address of 
the buffer pool control block into the data control block 
and the BUFCB operand can be omitted. Also, if the problem 
program controls all buffering, the BUFCB operand should be 
omitted. 

Source: The BUFCB operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 

BUFLs absexp (maximum value is 32760) 

The BUFL operand specifies the length, in bytes, of each 
buffer in the buffer pool when the buffer pool is acquired 
automatically. If the BUFL operand is omitted and the 
buffer pool is acquired automatically, the system acquires 
buffers with a length that is equal to the sum of the 
values specified in the KEYLEN and BLKSIZE operands. If 
the problem program requires longer buffers, the BUFL 
operand should be specified. 

If the problem program controls all buffering, the BUFL 
operand is not required. 

Source: The BUFL operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFNQs absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers to be 
constructed by a BUILD macro instruction, or it specifies 
the number of buffers to be acquired automatically by the 
system . 
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If the problem program controls all buffering or if the 
buffer pool is constructed by a GETPOOL macro instruction^ 
the BUFNO operand should be omitted. 

Source: The BUFNO operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

The DDNANE operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 

Source: The DDNAME operand can be supplied in the DCB 
macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 

DS0R6sCP0iP0U> 

The DS0R6 operand specifies the data set organization and 
whether the data set contains any location'-dependent 
information that would make it unmovable. The characters 
that can be specified are: 

PO 

specifies a partitioned data set organization. 

POU 

specifies a' partitioned data set organization and that 
the data set contains location-dependent information. 

Note: If BSAM or QSAM is used to add or retrieve a single 
member of a partitioned data set, a sequential access 
method is being used, and the DSORG operand is specified as 
PS or PSU. The name of the member being processed in this 
manner is supplied in a DD statement. 

Source: The DSORG operand must be specified in the DCB 
macro instruction. 

EQDAD= relexp 

The EODAD operand specifies the address of the routine 
given control when the end of the input data set is 
reached. Control is given to this routine when an input 
request is made (READ macro instruction) and there are no 
additional input records to retrieve. The routine is 
entered when a CHECK macro instruction is issued and the 
end of the data set is reached. If the end of the data set 
is reached and no EODAD address has been supplied, the task 
is abnormally terminated. For additional information on 
the EODAD routine, see Data Administration Guide. 

Source: The EODAD operand can be supplied in the DCB macro 
instruction or by the problem program before the end of the 
data set is reached. 

EXLSTS£ftl£jffi 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required if the 
problem program uses the data control block exit routine 
for additional processing or if the DCB abend exit is used 
for abend condition analysis. 

For the format and requirements of the exit list 
processing, see Appendix D, "DCB Exit List Format and 
Contents" on page 197. For additional information about 
exit list processing, see Data Administration Guide. 

Source: The EXLST operand can be supplied in the DCB macro 
instruction or by the problem program before the OPEN macro 
instruction is issued to open the data set. 
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KEYLEN= absexp (maximum value is 255) 

The KEYLEN operand specifies the lengthy in bytes» of the 
key associated with each data block in the direct access 
device data set. If the key length is not supplied from 
any source by the end of the data control block exit 
routine^ a key length of zero (no keys) is assumed. 

Source: The KEYLEN operand can be supplied in the DCB 
macro instruction^ in the DCB subparameter of a DD 
statement/ by the problem program before the completion of 
the data control block exit routine^ or by the data set 
label of an existing data set. If KEYLEN=0 is specified 
in the DCB macro instruction^ a special indicator is set in 
RECFH so that KEYLEN cannot be supplied from the DCB 
subparameter of a DD statement or data set label of an 
existing data set. KEYLEN^O can be coded only in the DCB 
macro instruction and will be ignored if specified in the 
DD statement. 

LRECLs absexp (maximum value is 32760) 

The LRECL operand specifies the lengthy in bytes» of each 
fixed-length logical record in the data set; It is required 
only for fixed-length records. The value specified in the 
LRECL operand cannot exceed the value specified in the 
BLKSIZE operand. 

If the records are unblocked* the value specified in the 
LRECL operand must equal the value specified in the BLKSIZE 
operand. If the records are blocked* the value specified 
in the LRECL operand must be evenly divisible into the 
value specified in the BLKSIZE operand. 

Source: The LRECL operand can be supplied in the DCB macro 
instruction* in the DCB subparameter of a DD statement* by 
the problem program before completion of the data control 
block exit routine* or by the data set label of an existing 
data set. 

MACRFsC(R|W|R*W)} 

The MACRF operand specifies the type of macro instructions 
(READ* WRITE* and NOTE/POINT) that are used to process the 
data set. The characters that can be specified aret 

R 

specifies that READ macro instructions are to be used. 
This operand automatically provides the capability to 
use both the NOTE and POINT macro instructions with 
the data set. 

W 

specifies that WRITE macro instructions are to be 
used. This operand automatically provides the 
capability to use both the NOTE and POINT macro 
instructions with the data set. 

All BPAM READ and WRITE macro instructions issued must be 
tested for completion using a CHECK macro instruction. The 
MACRF operand does not require any coding to specify that a 
CHECK macro instruction will be used. 

Source: The MACRF operand must be specified in the DCB 
macro instruction. 

NCPs absexp (maximum value is 99) 

The NCP operand specifies the maximum number of READ and 
WRITE macro instructions that will be issued before tha 
first CHECK macro instruction is issued. The maximum 
number may be less than 99* depending on the amount of 
virtual storage available in the region. If chained 
scheduling is specified* the value of NCP determines the 
maximum number of channel program segments that can be 
chained and must be specified as more than 1. If the NCP 
operand is omitted* I is assumed. 
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Source: The NCP operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block open exit routine. 

OPTCD={{C|WCCn 
{CIHCCI} 
{C|U[H][Cn} 

The OPTCD operand specifies the optional services performed 
by the system. The characters that can be specified (in 
any order, in any combination, and without commas between 
characters) are< 

C 

specifies that chained scheduling is used. This 
option is ignored for direct access devices. 

H 

If OPTCD=H is coded in the DCB parameters of a DD 
statement, H specifies that, if a partitioned data set 
is being opened for input and resides on an MSS 
device, then, at OPEN time, the data set is to be 
staged to EOF on the virtual DASD device. 

W 

specifies that the system is to perform a validity 
check for each record written. 

Source: The OPTCD operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before an OPEN macro instruction is 
issued to open the data set. However, all optional 
services must be requested from the same source. 

RECFMsC{U[T][A|N3} 

{VtBtT33l£T3tA|Mn 

{F[BCT33UT3[AtN]}} 
The RECFM operand specifies the record format and 
characteristics of the data set being created or processed. 
All the record formats shown above can be specified, but in 
those formats that show blocked records, the problem 
program must perform the blocking and deblocking of logical 
records; BPAM recognizes only data blocks. The characters 
that can be specified are: 

A 

specifies that the records in the data set contain 
ISO/ANSI/FIPS control characters. For a description 
of control characters, see Appendix E, "Control 
Characters" on page 199. 

B 

specifies that the data set contains blocked records. 

F 

specifies that the data set contains fixed-length 
records. 

M 

specifies that the records in the data iset contain 
machine code control characters. For a description of 
control characters, see Appendix E, "Control 
Characters" on page 199. 

T 

specifies that track overflow is used with the data 
set. Track overflow allows a record to be written 
partially on one track of a direct access device and 
the remainder of the record written on the following 
track (if required). Chained scheduling (OPTCD=C) 
cannot be used if the track overflow is used. 
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U 

specifies that the data set contains undefined-length 
records. 

V 

specifies that the data set contains variable-length 
records. 

Source: The RECFN operand can be supplied in the DCB macro 
instruction^ in the DCB subparameter of a DD statement/ by 
the problem program before completion of the data control 
block exit routine^ or by the data set label of an existing 
data set. 

SYNAD=i:fliexB 

The SYNAD operand specifies the address of the error 
analysis (SYNAD) routine to be given control when an 
uncorrectable input/output error occurs. The contents of 
the registers when the error analysis routine is given 
control are described in Appendix fik, "Status Information 
Following an Input/Output Operation** on page 192. 

The error analysis routine must not use the save area 
pointed to by register 13/ because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can return control to the system by 
issuing a RETURN macro instruction. If control is returned 
to the system/ the system returns control to the problem 
program and proceeds as though no error had been 
encountered. 

If the SYNAD operand is omitted/ the task is abnormally 
terminated when an uncorrectable input/output error occurs. 

Source: The SYNAD operand can be supplied in the DCB macro 
instruction or by the problem program. The problem program 
can also change the error routine address at any time. 
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peg— CQN^TRWT A PATA gPNTROl, gUPPK (ggAH) 

The data control block for the basic sequential access method 
(BSAM) is constructed during assembly of the problem program. 
The DSORG and MACRF operands must be coded in the DCB macro 
instruction^ but the other DCB operands can be supplied to the 
data control block from other sources. Each DCB operand 
description contains a heading^ "Source." The information under 
this heading describes the sources of an operand that can be 
supplied. 

The DCB macro for BSAM is written > 



[svmboll 


DCB 


CBFALN={F|jB}I 




I,BFTEK=R3 






t,BLKSIZE=al2S£XE3 






t,BUFCB=j:£leKe3 






t,BUFL=aLh&giS£3 






t,BUFNO=a.l?pexpl 






t,BUF0FF=CakS£iiElL}3 






l,DDNAME=symksill^ 






[»DEVD=CCIA 






C,KEYLEN=abSje21E3} 






{TA 






[»DEN={l|2i3K}] 






£»TRTCH={C|E|ETiT}]} 






CPR 






[»PRTSPs{0|l|2t3}]} 






{PC 






UMODE=i:C|£]] 






[,STACK=C1I2}3 






CfFUNC={IiP|PWCXT]iRiRPtD] I 






RWITllRVjPCXTltDliWLT]}] 






{RD 






C>MODE=[C|£][OiRn 






C,STACK={1I2}] 






[,FUNC={IiP|PW[XT]|R|RPtD]i 






RWIT3iRWP[XT3[D]|VftT3}n3 






»DSORGs{PSiPSU>i 






l,EODAD=x:fil.g2iJB3 






ttEXLST=x:fii£2SE3 






I,KEYLEN=ahaB2Sfi3 






C,LRECLs{aiis^21ElX}3 












{(WCC|PiL3)> 






{(R[C|P3,M[C|P3)}}1 






t,NCP=aiiSS2SJB3 






t»OPTCD=C{B} 






{T> 






{U[C3> 






{C[T3[B3[U3> 






{H[Z3[B3> 






CJCC3CU3} 






{W[C3[T3CB3[U3} 






{ZIC3[T3(B3[U3> 






CQCC3[B3[TiZ3}}3 






C>RECFM={{y[T3CAtM3> 






{V[B|S|TiBSlBT3[A|M3} 






CDCBiS|BS3[A3} 






CF[B|S|T|BS|BT3[A|N3}}3 






l,SYNAD=£fiiasjB3 



This parameter must be supplied before an OPEN macro is 
issued for this DCB; it cannot be supplied in the open exit 
routine. 
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The following describes the operands that can be specified in 
the DCB macro instruction for a BSAN data sett 

BFALNs{FIO> 

The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool when the buffer pool is 
constructed automatically or by a GETPOOL macro 
instruction. If the BFALN operand is omitted^ the system 
provides doubleword alignment for each buffer. 

If the data set being created or processed contains 
ISCII/ASCII tape records with a block prefix^ the block 
prefix is entered at the beginning of the buffer, and data 
alignment depends on the length of the block prefix. For a 
description of how to specify the block prefix lengthy see 
the description of the DCB BUFOFF operand. 

The characters that can be specified aret 

F 

specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 

specifies that each buffer is on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool or if the problem program controls all 
buffering/ the problem program must provide an area for the 
buffers and control buffer alignment. 

Source: The BFALN operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFALN and 6FTEK 
operands are specified, they must be supplied by the same 
source. 

BFTEKSR 

The BFTEKsR operand specifies that BSAM is used to read 
unblocked variable-length spanned records with keys from a 
BDAM data set. Each read operation reads one segment of 
the record and places it in the area designated in the READ 
macro instruction. The first segment enters at the 
beginning of the area, but all subsequent segments are 
offset by the length of the key (only the first segment has 
a key). The problem program must provide an area in which 
it can assemble a record, identify each segment, and 
assemble the segments into a complete record. 

Source: The BFTEK operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFTEK and BFALN 
operands are specified, they must be supplied from the same 
source. 

BLKSZZEsal2Sfi2^ (maximum value KEYLEN -i- BLKSIZE is 32760) 

The BLKSIZE operand specifies the maximum block length in 
bytes. For fixed-length, unblocked records, this operand 
specifies the record length. The BLKSIZE operand includes 
only the data block length; if keys are used, the length of 
the key is not included in the value specified for the 
BLKSIZE operand. 

The actual value that can be specified in the BLKSIZE 
operand depends on the device type and the record format 
being used. Device capacity is shown in 
Appendix C, "Device Capacities" on page 194. For 
additional information about device capacity, see i2aiia 
Adtninistratign Oviidg. 
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For direct access devices when track overflow is used or 
variable-length spanned records are being processed^ the 
value specified in the BLKSIZE operand can be up to the 
maximum value. For other record formats used with direct 
access devices^ the value specified for BLKSIZE cannot 
exceed the capacity of a single track. 

If fixed-length records are used, the value specified in 
the BLKSIZE operand should be an integral multiple of the 
value specified for the logical record length (LRECL). 

If variable-length records are used, the value specified in 
the BLKSIZE operand must include the maximum logical record 
length (up to 32756 bytes) plus the ^ bytes required for 
the block descriptor word (BDN). For format-D 
variable-length records (ISCII/ASCII data sets), the 
minimum value for BLKSIZE is 18 bytes. The maximum value 
is 2048 bytes. For additional information about the 
BLKSIZE restrictions, see Pata Adminifftratipp Qvide. 

If ISCII/ASCII tape records with a block prefix are 
processed, the value specified in the BLKSIZE operand must 
also include the length of the block prefix. 

If BSAM is used to read variable-length spanned records 
from a 6DAM data set, the value specified for the BLKSIZE 
operand must be as large as the longest possible record 
segment in the BDAM data set, including 4 bytes for the 
segment descriptor word (SDN) and 4 bytes for the block 
descriptor word (BDH). 

If undefined-length records are used, the value specified 
for the BLKSIZE operand can be altered by the problem 
program when the actual length becomes known to the problem 
program. The value can be inserted directly into the 
DCBBLKSI field of the data control block or specified in 
the length operand of a READ/HRITE macro instruction. 

Source: The BLKSIZE operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before completion of the 
data control block exit routine, or by the data set label 
of an existing data set. 

Note: The maximum block size for Version 3 ISO/ANSI/FIPS 
tapes (ISO 1001-1979 and ANSI X3. 27-1978) is 20^»8 bytes. 
An attempt to exceed 2048 bytes for a Version 3 tape 
results in a label validation installation exit being 
taken. 

BUFCBsnftifiXE 

The BUFCB operand specifies the address of the buffer pool 
control block in a buffer pool constructed by a BUILD macro 
instruction . 

If the buffer pool is to be constructed automatically or by 
a GETFOOL macro instruction, the system places the address 
of the buffer pool control block into the data control 
block, and the BUFCB operand should be omitted. If the 
problem program is to control all buffering, the BUFCB 
operand is not required. 

Source: The BUFCB operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 

BUFLS absexp (maximum value is 32760) 

The BUFL operand specifies the length, in bytes, for each 
buffer in the buffer pool when the buffer pool is acquired 
automatically. The system acquires buffers with a length 
equal to the sum of the values specified in the KEYLEN and 
BLKSIZE operands if the BUFL operand is omitted; if the 
problem program requires larger buffers, the BUFL operand 
must be specified. If the BUFL operand is specified, it 
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must be at least as large as the value specified in the 
BLKSZZE operand. If the data set is for card image mode^ 
the 6UFL operand should be specified as 160. The 
description of the DEVD operand contains a description of 
card image mode. 

If the data set contains ISCII/ASCII tape records with a 
block prefix^ the value specified in the BUFL operand musi 
include the block length plus the length of the block 
prefix. 

If the problem program is to control all buffering or if 
the buffer pool is to be constructed by a 6ETP00L or BUILD 
macro instruction* the BUFL operand is not required. 

Source: The BUFL operand can be supplied in the DCB macro 
instruction/ in the DCB keyword on a DD statement/ or by 
the problem program before completion of the data control 
block exit routine. 

BUFWQg absexD (maximum value is 255) 

The BUFNO operand specifies the number of buffers 
constructed by a BUILD macro instruction or the number of 
buffers to be acquired automatically by the system. 

If the problem program controls all buffering or if the 
buffer pool is constructed by a GETPOOL macro instruction* 
the BUFNO operand should be omitted. 

Source: The BUFNO operand can be supplied in the DCB macro 
instruction* in the DCB subparameter of a DD statement* or 
by the problem program before completion of the data 
control block exit routine. 

BUPOFFst absexp I LI 

The BUFOFF operand specifies the length* in bytes* of the 
block prefix used with an ISCII/ASCII tape data set. Nhen 
BSAM is used to read an ISCII/ASCII tape data set* the 
problem program must use the block prefix length to 
determine the location of the data in the buffer. When 
BSAM is used to write an output ISCII/ASCII tape data set* 
the problem program must insert the block prefix into the 
buffer* followed by the data (BSAM considers the block 
prefix as data). The block prefix and data can consist of 
any characters that can be translated into 7-bit 
ISCII/ASCII code; any character that cannot be translated 
is replaced with a substitute character. (For a more 
detailed description of ISCII/ASCII translation 
characteristics* see Magnetic Tape Labels and File 
Struetura . ) For format-D records* the RDW must be binary; 
if RECFM=D and BUFOFF^L* the RDW and BDW must both be 
binary. On output* the control program translates the BDW 
and RDW to ISCII/ASCII characters and* on input* the 
control program converts ISCII/ASCII data to BDW and RDW. 
The following can be specified in the BUFOFF operandi 



specifies the length* in bytes* of the block prefix. 
This value can be from 0 to 99 for an input data set. 
The value must be 0 for writing an output data set 
with fixed-length or undefined-length records (BSAM 
considers the block prefix part of the data record). 

L 

specifies that the block prefix is 4 bytes long and 
contains the block length. BUFOFF^L is used when 
format-D records (ISCII/ASCII) are processed. When 
BUFOFF=L is specified* the BSAM problem program can 
process the data records (using READ and WRITE macro 
instructions) in the same manner as if the data were 
in format-V variable-length records. For further 
information on this operand* see "Variable-Length 

Records — Format D" in Data Administration gvida* 



52 MVS/XA Data Administration! Macro Instruction Reference 



DCB (BSAM) 



If the BUFOFF operand as omitted for an input data set with 
format-D records/ the system inserts the record length into 
the DCBLRECL field of the data control block; the problem 
program must obtain the length from this field to process 
the record. 

If the BUFOFF operand is omitted from an output data set 
with format-D records^ the problem program must insert the 
actual record length into the DCBBLKSI field of the data 
control block or specify the record length in the length 
operand of a HRITE macro instruction. 

Source: The BUFOFF operand can be supplied in the DCB 
macro instruction^ in the DCB subparameter of a DD 
statement/ or by the problem program before an OPEN macro 
instruction is issued to open the data set. BUFOFF=absexp 
can also be supplied by the label of an existing data set; 
BUFOFF-L cannot be supplied by the label of an existing 
data set. 

DDNAME=symhfil 

The DDNAHE operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 

Source: The DDNAME operand can be supplied in the DCB macro 
instruction or by the problem program before an OPEN macro 
instruction is issued to open the data set. 

DEVD=CfiA I TA I PR I PCI RD} t ,fiE±iiiDS J 

The DEVD operand specifies the device type where the data 
set can or does reside. The device types above are shown 
with the optional operand(s) that can be coded when a 
particular device is used. The devices are listed in order 
of device independence. For example/ if DEVD^DA is coded 
in a DCB macro instruction (or the DEVD operand is omitted/ 
which causes a default to DA)/ the data control block 
constructed during assembly could later be used for any of 
the other devices/ but/ if DEVD^RD is coded/ the data 
control block can be used only with a card reader or card 
reader punch. Unless you are certain that device 
interchangeability is not required/ you should either code 
DEVD=DA or omit the operand and allow it to default to DA. 

If system input is directed to an intermediate storage 
device/ the DEVD operand is omitted/ and the job control 
language for the problem program designates the system 
input device to be used. Likewise/ if system output is 
directed to an intermediate storage device/ the DEVD 
operand is omitted/ and the job control language for the 
problem program designates the system output device to be 
used. If DEVD^PR/ PC/ or RD is coded/ the DCB macro should 
not be coded within the first 16 bytes of addressability 
for the control section. 

The DEVD operand is discussed below according to individual 
device type: 

DEVD=Si& 

E,KEYLEN=afeSS21E3 

specifies that the data control block can be used for 
a direct access device (or any of the other device 
types described following SA) . 

KEYLENsabSfiliB 

The KEYLEN operand can be specified only for data 
sets that reside on direct access devices. 
Because the KEYLEN is usually coded without a 
DEVD operand (default taken)/ the description of 
the KEYLEN operand is in alphabetic sequence with 
the other operands. 
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DEVOsTA 

C,SENs{l|2|3K}] 

C,TRTCH=CC|E|ET|ni 

Specifies that the data control block can be used for 
a magnetic tape data set (or any of the other device 
types described following TA). If TA is coded/ the 
following optional operands can be coded* 

DENs{l|2|3K} 

The DEN operand specifies the recording density 
in the number of bits-per~inch per track as shown 
in the following: 



Recording Density 



DEN 


7-Track 


9-Track 18-Tpack 


1 


556 


N/A N/A 


2 


800 


800 (NRZI)i N/A 


3 


N/A 


1600 (PE)2 N/A 


4 


N/A 


6250 (GCR)^ N/A 


1 


NRZI is 


for nonreturn— to— zero inverted 


2 


PE is for phase encoded mode. 


S 


GCR is for group coded recording mode. 



If the DEN operand is not supplied by any source/ 
the highest applicable density is assumed. 

TRTCH=CC|E|ET|T> 

The TRTCH operand specifies the recording 
technique for 7-track tape. One of the above 
4-character combinations can be coded. If the 
TRTCH operand is omitted* odd parity with no 
translation or conversion is assumed. The 
characters that can be specified are: 

C 

specifies that the data-conversion feature 
is used with odd parity and no translation. 

E 

specifies even parity with no translation or 
conversion. 

ET 

specifies even parity with BCDIC to EBCDIC 
translation required and no data-conversion 
feature. 

T 

specifies that BCDIC to EBCDIC translation 
is required with odd parity and no 
data-conversion feature. 

DEVOSPR 

C/PRTSP={0|1|2|3}] 

Specifies that the data control block is used for an 
on— line printer Cor any of the other device types 
following PR). If PR is coded/ the following optional 
operand can be codedt 

PRTSP={0|1|2|3> 

The PRTSP operand specifies the line spacing on 
the printer. This operand is not valid if the 
RECFH operand specifies either machine (RECFH=M)/ 
ISO/ANSI/FIPS (RECFH=A) control characters. If 
the PRTSP operand is not specified from any 
source/ 1 is assumed. 
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The characters that can be specified aret 
0 

specifies that spacing is suppressed (no 
space) . 

1 

specifies single spacing. 

2 

specifies double spacing (one blank line 
between printed lines). 

3 

specifies triple spacing (two blank lines 
between printed lines). 

DEVD=PC 

[,MODEs[ClI] 
[,STACK=£1I2}3 

C»FUNC={I|P|PWCXT]|R|RP[D]|RW[T] IRWPCXT3CD] iWCT]}] 

Specifies that the data control block is used for a 
card punch (or any of the other device types following 
PC). If PC is codedy the following optional operands 
can be specified: 

HODE=CC|£] 

The MODE operand specifies the mode of operation 
for the card punch. The characters that can be 
specified (if the MODE operand is omitted^ E is 
assumed) are: 

C 

specifies that the cards are to be punched 
in card image mode. In card image mode^ the 
12 rows in each card column are punched from 
two consecutive bytes in virtual storage. 
Rows 12 through 3 are punched from the 
low-order 6 bits of one byte and rows 4 
through 9 are punched from the low-order 6 
bits of the following byte. 



specifies that cards are to be punched in 
EBCDIC code. 

STACK=£1I2J 

The STACK operand specifies the stacker bin where 
the card is placed after punching is completed. 
If this operand is omitted^ stacker number 1 is 
used. The characters that can be specified are: 

1 

specifies stacker number 1 . 

2 

specifies stacker number 2. 

FUNCs{I|PiPW[XT]|R|RP[D]iRVI[T3|RWPCXT3[D]|WET]} 

The FUNC operand defines the type of 3525 card 
punch data sets that are used. If the FUNC 
operand is omitted from all sources^ a data set 
opened for input defaults to read only» and a 
data set opened for output defaults to punch 
only. The characters that can be specified in 
the FUNC operand are: 

D 

specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. When the 
data protection option is used^ an 80-byte 
data protection image (DPI) must have been 
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previously stored in SYSl . IMAGELIB . Data 
protection applies only to the output/punch 
portion of a read and punch or read punch 
and print operation. 

Z 

specifies that the data in the data set is 
to be punched into cards> and printed on the 
cards; the first 64 characters are printed 
on line 1 of the card and the remaining 16 
characters are printed on line 3. 

P 

specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 

R 

specifies that the data set is for reading 
cards. 

T 

specifies that the two-line print option is 
used. The two-line print option allows two 
lines of data to be printed on the card 
(lines 1 and 3). If T is not specified^ the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
either case* the data printed may be the 
same as the data punched in the card* or it 
may be entirely different data. 

M 

specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 

X 

specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 

Note: If data protection is specified* the data 
protection image (DPI) must be specified in the 
FCB parameter of the DD statement for the data . 
set. 

DEVDsRD 

C,MODEs[C|EHO|R33 
C,STACK=fl|2}l 

C,FUNC={I|PlPWtXT1lR|RPtDl|RWtTl|RWPtXTHD3|WIT3}3 

Specifies that the data control block is used with a 
card reader or card read punch. If RD is specified* 
the data control block cannot be used with any other 
device type. When RD is coded* the following optional 
operands can be specified: 

HODE=CC|£HO|R] 

The MODE operand specifies the mode of operation 
for the card reader. The characters that can be 
specified aret 

C 

specifies that the cards to be read are in 
card image mode. In card image mode* the 12 
rows in each card column are read into two 
consecutive bytes of virtual storage. Rows 
12 through 3 are read into one byte and rows 
4 through 9 are read into the following 
byte . 
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specifies that the cards to be read contain 
data in EBCDIC code. 

0 

specifies that the program runs in 
optical -mark- read mode (3505 card reader). 

R 

specifies that the program runs in 
read-column-eliminate mode (3505 card reader 
or 3525 card punchy read feature) . 

Note: If the MODE operand for a 3505 or 3525 is 
specified in the DCB subparameter of a DD 
statements either C or E must be specified if R 
or 0 is specified. 

STACK=CH2} 

The STACK operand specifies the stacker bin where 
the card is placed after reading is completed. 
If this operand is omitted^ stacker number 1 is 
used. The characters that can be specified are: 

1 

specifies stacker number 1. 

2 

specifies stacker number 2. 

FUNCs{Z|P|PWCXT]iR|RP[D}|RW[T]iRWP[XTnD]iW[T]} 

The PUNC operand defines the type of 3525 card 
punch data sets that are used. If the FUNC 
operand is omitted from all sources^ a data set 
opened for input defaults to read only, and a 
data set opened for output defaults to punch 
only. The characters that can be specified in 
the FUNC operand are: 

D 

specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. Hhen the 
data protection option is used^ an SO-byte 
data protection image (DPI) must have been 
previously stored in SYSl . IMAGELIB . Data 
protection applies only to the output/punch 
portion of a read and punch or read punch 
and print operation. 

Z 

specifies that the data in the data set is 
to be punched into cards and printed on the 
cards; the first 64 characters are printed 
on line 1 of the card and the remaining 16 
characters are printed on line 3. 

P 

specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 

R 

specifies that the data set is for reading 
cards. 

T 

specifies that the two-line print option is 
used. The two-line print option allows two 
lines of data to be printed on the card 
(lines 1 and 3). If T is not specified, the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
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either ease, the data printed may be the 
same as the data punched in the card» or it 
may be entirely different data. 

W 

specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 

X 

specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 

Note: If data protection is specified^ the 
data protection image (DPI) must be 
specified in the FCB subparameter of the DD 
statement for the data set. 

Sources The DEVD operand can be supplied only in 
the DCB macro instruction. However, the optional 
operands can be supplied in the DCB macro 
instruction* the DCB subparameter of a DD 
statement* or by the problem program before 
completion of the data control block exit 
routine. 

DS0R6={PS|PSU} 

The DS0R6 operand specifies the organization of the data 
set and if the data set contains any location-dependent 
information that would make it unmovable. The following 
can be specified* 

PS 

specifies a physical sequential data set. 

PSU 

specifies a physical sequential data set that contains 
location-dependent information that would make it 
unmovable. 

Source: The DS0R6 operand must be coded in the DCB macro 
instruction . 

EODAPs relexp 

The EODAD operand specifies the address of the routine 
given control when the end of an input data set is reached. 
If the record format is RECFM=FS or FBS» the end-of-data 
condition is sensed when a file mark is read or when more 
data is requested after reading a truncated block. The 
end-of-data routine is entered when the CHECK macro 
instruction determines that the READ macro instruction 
reached the end of the data. If the end of the data set is 
reached but no EODAD address has been supplied* the task is 
abnormally terminated. For additional information on the 
EODAD routine* see Data Adtninistratign <?Midg. 

Hhen the data set has been opened for UPDAT and volumes are 
to be switched* the problem program should issue a FEOV 
macro instruction after the EODAD routine has been entered. 

Source: The EODAD operand can be supplied in the DCB macro . 
instruction or by the problem program before the end of the 
data set is reached. 

EXLSTs relexp 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required if the 
problem program requires additional processing for user 
labels* user totaling* data control block exit routine* 
end-of-volume* block count exits* to define a forms control 
buffer (FCB) image, use the JFCBE exit (for the IBM 3800 
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Printing Subsystem)/ or to use the DCB abend exit for abend 
condition analysis. 

For the format and requirements of exit list processing^ 
see Appendix J>f "DCB Exit List Format and Contents" on 
page 197. For additional information about exit list 
processing, see Pata Admnistration gwide- 

Source: The EXLST operand can be supplied in the DCB macro 
instruction or by the problem program any time before the 
exit is required by the problem program. 

KEYLEN= absexp (maximum value is 255) 

The KEYLEN operand specifies the length, in bytes, for the 
key associated with each data block in a direct access 
device data set. If the key length is not supplied from 
any source before completion of the data control block exit 
routine, a key length of zero (no keys) is assumed. 

Source: The KEYLEN operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before the completion of 
the data control block exit routine, or by the data set 
label of an existing data set. If KEYLEN=0 is specified in 
the DCB macro instruction, a special indicator is set in 
RECFM so that KEYLEN cannot be supplied from the DCB 
subparameter of a DD statement or data set label of an 
existing data set. KEYLEN^O can be coded only in the DCB 
macro instruction and will be ignored if specified in the 
DD statement. 

LRECLs{ai2S£2^lX> 

The LRECL operand specifies the length, in bytes, for 
fixed-length records, or it specifies the maximum length, 
in bytes, for variable-length records. LRECL=X is used for 
variable-length spanned records that exceed 32756 bytes. 
Except when variable-length spanned records are used, the 
value specified for the LRECL operand cannot exceed the 
value specified for the BLKSXZE operand. 

Except when variable-length spanned records are used, the 
LRECL operand can be omitted for BSAM; the system uses the 
value specified in the BLKSIZE operand. If the LRECL value 
is coded, it is coded as described in the following. 

For fixed-length records that are unblocked, the value 
specified in the LRECL operand should be equal to the value 
specified in the BLKSIZE operand. For blocked fixed-length 
records, the value specified in the LRECL operand should be 
evenly divisible into the value specified in the BLKSIZE 
operand. However, the LRECL operand will not be validity 
checked. 

For variable-length records, the value specified in LRECL 
must include the maximum data length (up to 32752 bytes) 
plus 4 bytes for the RDN' 

For undefined-length records, the LRECL operand should be 
omitted; the actual length can be supplied dynamically in a 
READ/WRITE macro instruction. When an undefined-length 
record is read, the actual length of the record is returned 
by the system in the DCBLRECL field of the data control 
block. 

When BSAM is used to create a BDAM data set with 
variable-length spanned records, the LRECL value should be 
the maximum data length (up to 32752) plus four bytes for 
the record descriptor word (RDN), or, if the logical record 
length is greater than 32756 bytes, LRECLsX is specified. 

Source: The LRECL operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
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block exit routine^ or by the data set label of an existing 
data set. 

MACRFs{C(RCCiPn} 

{(WCCIPILI)} 

C(R[C|P]>W[C|Pn}> 
The MACRP operand specifies the type of macro instructions 
(READ, WRITE, CNTRL, and NOTE/POINT) that are used with the 
data set being created or processed. The BSAM MACRF 
operand also provides the special form (MACRF=WL) for 
creating a BDAN data set. The MACRF operand can be coded 
in any of the forms shown above. The following characters 
can be coded t 

C 

specifies that the CNTRL macro instruction is used 
with the data set. If C is specified to be used with 
a card reader, a CNTRL macro instruction must follow 
every input request. 

L 

specifies that BSAM is used to create a BDAM data set. 
This character can be specified only in the 
combination MACRFsWL* 

P 

specifies that POINT macro instructions are used with 
the data set being created or processed. Specifying P 
in the MACRF operand also automatically provides the 
capability of using NOTE macro instructions with the 
data set. P should not be coded for SYSIN or SYSOUT 
data sets. (See explanations of the NOTE and POINT 
macro instructions.) 

R 

specifies that READ macro instructions are to be used. 

W 

specifies that WRITE macro instructions are to be 
used. 

Note: Each READ and WRITE macro instruction issued in the 
problem program must be checked for completion by a CHECK 
macro instruction. 

Source: The MACRF operand must be specified in the DCB 
macro instruction. 

NCPs absexp (maximum value is 99) 

The NCP operand specifies the maximum number of READ/WRITE 
macro instructions that will be issued before the first 
CHECK macro instruction is issued to test for completion of 
the I/O operation. The maximum number may be less than 99, 
depending on the amount of virtual storage available in the 
region. If the NCP operand is omitted, 1 is assumed. 

Source: The NCP operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block open exit routine. 

OPTCDs{{B} 
{T} 

{uccn 

{CCTHBHUl} 
{HCZlCBn 

{jcc]cun 

{WCClCTlCBHUn 
{Z[C]CTHB][U]} 
{QCCHB]CT> 

The OPTCD operand specifies the optional services that are 
used with the BSAM data set. Two of the optional services, 
OPTCD=B and OPTCDsH» cannot be specified in the DCB macro 
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instruction. They are requested in the DCB subparameter of 
a DD statement. Because all optional services requests 
must be supplied by the same source^ the OPTCD operand must 
be omitted from the DCB macro instruction if either of 
these options is requested in a DD statement. The 
characters that can be specified (in any order, in one of 
the combinations shown above, and without commas, between 
characters) are: 

C 

requests that chained scheduling be used. OPTCD=C 
cannot be specified if BFTEK=R is specified for the 
same data control block. Also, chained scheduling 
cannot be specified for associated data sets or 
printing on a 3525 and is ignored for direct access 
devices. 

Note: Except where it is not allowed, chained 
scheduling is used whether requested or not. For 
conditions under which chained scheduling is not 
allowed, see Pata Administratipn Quids. 

u 

specifies that the first data byte in the output data 
line will be a 3800 table reference character. This 
table reference character selects a particular 
character arrangement table for the printing of the 
data line and can be used singly or in conjunction 
with ISO, AIJSI, or machine control characters. This 
option is valid only for the IBM 3800 Printing 
Subsystem. For information on the table reference 
character and character arrangement table modules, see 
IBM ?gOQ Printing Swbsygteni PrQqrawwer's 6Mide« 

Q 

requests that ISCII/ASCII tape records in an input 
data set be converted to EBCDIC code after the input 
record has been read. Translation is done at CHECK 
time for input. It also requests that an output 
record in EBCDIC code be converted to ISCII/ASCII code 
before the record is written. For further information 
on this conversion, see "Variable-Length 
Records — Format D" in Pata Adtninistration guide. 

The Q option is unconditionally set by open routines 
if the data set is for a tape with ISO/ANSI/FIPS 
labels. For more information about ISCII/ASCII to 
EBCDIC or EBCDIC to ISCII/ASCII translations, see 
Magnetic Tape Labels and File Structure 

Administratign. 

T 

requests the user totaling function. If this function 
is requested, the EXLST operand should specify the 
address of an exit list to be used. T cannot be 
specified for SYSIN and SYSOUT data sets. 

U 

is specified only. for a printer with the universal 
character set (UCS) feature or the 3800 Printing 
Subsystem. This option unblocks data checks (permits 
them to be recognized as errors) and allows analysis 
by the appropriate error analysis routine (SYNAD exit 
routine). If the U option is omitted, data checks are 
not recognized as errors. 

For the IBM Mass Storage System (MSS): U requests 
window processing to reduce the amount of staging 
space required to process large sequential data sets 
on MSS. DSORG must specify physical sequential, 
allocation must be in cylinders, and type of I/O 
accessing must be either INPUT only or OUTPUT only. 



Macro Instruction Descriptions 61 



DCB (BSAM) 



W 

for DASD» specifies that the system is to perform a 
validity check on each record written on a direct 
access device. For buffered devices^ specifies that 
device end interrupt is to be given only when a record 
is physically on the device. By specifying OPTCD=W 
with buffered devices^ you do not benefit from the 
performance advantage of buffering. 

Z 

requests* for magnetic tape* input only* the system to 
shorten its normal error recovery procedure to 
consider a data check as a permanent I/O error after 
five unsuccessful attempts to read a record. This 
option is available only if it has also been specified 
as a 3YSGEN option. OPTCDsZ is meant to be used when 
a tape is known to contain errors and there is no need 
to process every record. The error analysis routine 
(SYNAD) should keep a count of permanent errors and 
terminate processing if the number becomes excessive. 

Note: The following describes the optional services that 
can be requested in the DCB subparameter of a DD statement. 
If either of these options is requested* the complete OPTCO 
operand must be supplied in the DD statement. 

B 

If OPTCD^B is specified in the DCB subparameter of a 
DD statement* it forces the end-of-volume (EOV) 
routine to disregard the end-of-file recognition for 
magnetic tape. Uhen this occurs* the EOV routine uses 
the number of volume serial numbers to determine end 
of file. 

H 

If OPTCD=H is specified in the DCB subparameter of a 
DD statement* it specifies that the DOS/OS interchange 
feature is being used with the data set. 

Source: The OPTCO operand can be supplied in the DCB macro 
instruction* in the DCB subparameter of a DD statement* in 
the data set label for direct access devices* or by the 
problem program before completion of the DCB open exit 
routine or JFCBE exit routine. However* all optional 
services must be requested from the same source. 

RECFMsCCUCTlCAltin 

CVtBlSITtBSiBTlCAiNn 

{D[B|SiBS]CA]} 

{FCB|S|T|BS|BT]CA|M]» 
The RECFM operand specifies the record format and 
characteristics of the data set being created or processed. 
All the record formats shown above can be specified* but in 
those record formats that specify blocked records* the 
problem program must perform the blocking and deblocking 
of logical records; BSAM recognizes only data blocks. The 
following describes the characters that can be specified! 

A 

specifies that the records in the data set contain 
International Organization for Standardization (ISO) 
or American National Standards Institute (ANSI) 
control characters. For a description of control 
characters* see Appendix E* "Control Characters" on 
page 199. 

B 

specifies that the data set contains blocked records. 

D 

specifies that the data set contains variable-length 
ISCII/ASCII tape records. 
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F 

specifies that the data set contains fixed-length 
records. 

N 

specifies that the records in the data set contain 
machine code control characters. For a description of 
control characters, see Appendix "Control 
Characters" on page 199. RECFM=M cannot be used with 
ISCII/ASCII data sets. 

S 

S specifies* for fixed-length records* that the 
records are to be written as standard blocks; with the 
exception of the last block or track in the data set* 
the data set contains no truncated blocks or unfilled 
tracks. Do not code S to retrieve records from a data 
set that was created using a RECFM other than 
standard. 

For variable-length records, including variable-length 
ISCII/ASCII* S specifies that a record can span more 
than one block. 

T 

specifies that track overflow is used with the data 
set. Track overflow allows a record to be written 
partially on one track of a direct access device and 
the remainder of the record to be written on the 
following track or tracks as required. Chained 
scheduling cannot be requested if track overflow is 
used. 

U 

specifies that the data set contains undefined-length 
records. 

Note: Format-U records are not supported for Version 
3 ISO/ANSI/FIPS tapes. An attempt to process a 
format-U record for a Version 3 tape results in a 
label validation installation exit being taken. 

Only ISO/ANSI Version 1 (ISO 1001-1969 or ANSI 

X3. 27-1969) format-U records can be used for input. 

V 

specifies that the data set contains variable-length 
records. 

Notes: 

• RECFM=V cannot be specified for a card reader data set 
or an ISO/ANSI/FIPS tape data set. 

• RECFM=VBS does not provide the spanned record function; 
if this format is used* the problem program must block 
and segment the records. 

• RECFM=DBS or RECFM=DS does not provide the spanned 
record function; if this format is used* the problem 
program must block and segment the records. 

• RECFM-VS* VBS* DS, or DBS cannot be specified for a 
SYSIN data set. 

• RECFM=V cannot be used for a 7-track tape unless the 
data conversion feature (TRTCHsC) is used. 

Source: The RECFH operand can be supplied in the DCB macro 
instruction* in the DCB subparameter of a DD statement* by 
the problem program before completion of the data control 
block exit routine, or by the data set label of an existing 
data set. 
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SYNADsiifllftjjfi 

The SYNAD operand specifies the address of the error 
analysis (SYNAD) routine to be given control if an 
uncorrectable input/output error occurs. The contents of 
the registers when the error analysis routine is given 
control are described in Appendix k, "Status Information 
Following an Input/Output Operation" on page 192. 

The error analysis routine must not use the save area 
pointed to by register 13* because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. If control is returned to the system* the system 
returns control to the problem program and proceeds as 
though no error had been encountered. 

If the SYNAD operand is omitted* the task is abnormally 
terminated when an uncorrectable input/output error occurs. 

Source: The SYNAD operand can be supplied in the DCB macro 
instruction or by the problem program. The problem program 
can also change the error routine address at any time. 

Hhen operating a directly allocated 3800 Model 3 using 
all-points addressability* the SYNAD routine will be entered if 
Print Services Facility (PSF) detects an unrecoverable error. 
However* no error information is available to the SYNAD routine 
for a directly allocated 3800 Model 3. If you want to continue 
processing* you must close and reopen the data set to restart 
PSF. For more information on the 3800 Model 3* see IBM 38Q0 
Printing SvibsYstem Programmgr's gwide for Models 3 and 8. 



64 MVS/XA Data Administration* Macro Instruction Reference 



DCB (QISAM) 



DCB— CONSTR UCT A DATA CONTROL BLOCK fQISAMl 

The data control block for a queued indexed sequential access 
method (QISAM) data set is constructed during assembly of the 
problem program. The DS0R6 and MACRF operands must be coded in 
the DCB macro instruction^ but the other DCB operands can be 
supplied from other sources. Each QISAM DCB operand description 
contains a heading* "Source." The information under this 
heading describes the sources that can supply the operand to the 
data control block. 

The DCB macro for QISAM is written t 





DCB 


lBFALN=tr Ifi} J 




t »BLKSIZESai2££2^1 

[>BUFL=absexp] 

I,BUFNO=akS£2S£3 

CCYLOFLSabseilEJ 

CDDNAMEsgyrnkfiil* 
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' This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine . 

The following describes the DCB operands that can be specified 
when a QISAM data set is being created or processed: 

BFALN=CFIB} 

The BFALN operand specifies the alignment of each buffer in 
the buffer pool when the buffer pool is constructed 
automatically or by a 6ETP00L macro instruction. If the 
BFALN operand is omitted^ the system provides doubleword 
alignment for each buffer. The following describes the 
characters that can be specified: 

F 

specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 

fi 

specifies that each buffer is on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool 7 the problem program must provide a storage 
area for the buffers and control buffer alignment. 

Source: The BFALN operand can be supplied in the DCB macro 
instruction^ in the DCB subparameter of a DD statements or 
by the problem program before completion of the data 
control block exit routine. 

BLKSZZEsaJ2S£K£ (maximum value KEYLEN 4 BLKSIZE is 52760) 

The BLKSZZE operand specifies the lengthy in bytes » for 
each data block when fixed-length records are used, or it 
specifies the maximum length in bytes^ for each data block 
when variable-length records are used. The BLKSZZE operand 
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must be specified when an ISAM data set is created. Nhen 
an existing ISAM data set is processed^ the BLKSIZE operand 
must ba omitted (it is supplied by the data set label). 

Track capacity of the direct access device being used must 
be considered when the block size for an ISAM data set is 
specified. For fixed-length records, the sum of the key 
length, data length, and device overhead plus 10 bytes (for 
ISAM use) must not exceed the capacity of a single track on 
the direct access device being used. For variable-length 
records, the sum of the key length, block-descriptor word 
length, record-descriptor word length, data length, and 
device overhead plus 10 bytes (for ISAM use) must not 
exceed the capacity of a single track on the direct access 
device being used. Device capacity and device overhead are 
described in Appendix C, ''Device Capacities" on page 194. 
For additional information about device capacity and space 
allocation, see Data Administration Guide. 

If fixed'length records are used, the value specified in 
the BLKSIZE operand must be an integral multiple of the 
value specified in the LRECL operand. 

Source: Nhen an ISAM data set is created, the BLKSIZE 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before completion of the data control block exit 
routine. When an existing ISAM data set is processed, the 
BLKSIZE operand must be omitted from the other sources, 
allowing the data set label to supply the value. 

BUFCB=rAla2jfi 

The BUFCB operand specifies the address of the buffer pool 
control block constructed by a BUILD macro instruction. 

If the system constructs the buffer pool automatically or 
if the buffer pool is constructed by a GETPOOL macro 
instruction, the system places the address of the buffer 
pool control block into the data control block, and the 
BUFCB operand should be omitted. 

Source: The BUFCB operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 

BUFLs absexp (maximum value is 32760) 

The BUFL operand specifies the length, in bytes, of each 
buffer in the buffer pool when the buffer pool is 
constructed by a BUILD or GETPOOL macro instruction. When 
the data set is opened, the system computes the minimum 
buffer length required and verifies that the length in the 
buffer pool control block is equal to or greater than the 
minimum length required. The system then inserts the 
computed length into the data control block. 

The BUFL operand is not required for QISAM if the system 
acquires buffers automatically; the system computes the 
minimum buffer length required and inserts the value into 
the data control block. 

If the buffer pool is constructed with a BUILD or GETPOOL 
macro instruction, additional space is required in each 
buffer for system use. For a description of the buffer 
length required for various ISAM operations, see Data 
Administration g^idg. 

Source: The BUFL operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFNQg absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers to be 
constructed by a BUILD macro instruction, or it specifies 
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the number of buffers to be acquired automatically by the 
system. If the BUFNO operand is omitted/ the system 
automatically acquires two buffers. 

If the GETPOOL macro instruction is used to construct the 
buffer pool/ the BUFNO operand is not required. 

Source: The BUFNO operand can be supplied in the DCB macro 
instruction/ in the DCB subparameter of a DD statement/ or 
by the problem program before completion of the data 
control block exit routine. 

CYLOFL= absexp (maximum value is number of tracks minus 1) 

The CYLOFL operand specifies the number of tracks on each 
cylinder that is reserved as an overflow area. The 
overflow area is used to contain records that are forced 
off prime area tracks when additional records are added to 
the prime area track in ascending key sequence. ISAM 
maintains pointers to records in the overflow area so that 
the entire data set is logically in ascending key sequence. 
Tracks in the cylinder overflow area are used by the system 
only if OPTCD=Y is specified. For a more complete 
description of cylinder overflow area, refer to the space 
allocation section of Data Administration Guide. 

Source: When an ISAM data set is created, the CYLOFL 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement/ or by the problem 
program before completion of the data control block exit 
routine. When an existing ISAM data set is processed/ the 
CYLOFL operand should be omitted/ allowing the data set 
label to supply the operand. 

DDNAME=SYiafefil 

The DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 

Source: The DDNAME operand can be supplied in the DCB 
macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 

DSORG={IS|ISU} 

The DSORG operand specifies the organization of the data 
set and indicates if the data set contains any 
location-dependent information that would make it 
unmovable. The following characters can be specified: 

IS 

specifies an indexed sequential data set organization. 

ZSU 

specifies an indexed sequential data set that contains 
location-dependent information. ISU can be specified 
only when an ISAM data set is created. 

Source: The DSORG operand must be specified in the DCB 
macro instruction. When an ISAM data set is created/ 
DSORG=IS or ISU must also be specified in the DCB 
subparameter of the corresponding DD statement. 

EODADsi^ifilSE 

The EODAD operand specifies the address of the routine to 
be given control when the end of an input data set is 
reached. For ISAM/ this operand would apply only to scan 
mode when a data set is open for an input operation. 
Control is given to this routine when a GET macro 
instruction is issued and there are no more input records 
to retrieve. For additional information on the EODAD 
routine/ see Data Administration 6tiide» 

Source: The EODAD operand can be supplied in the DCB macro 
instruction or by the problem program before the end of the 
data set is reached. 
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The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required only if 
the problem program uses the data control block exit 
routine for additional processing. 

For the format and requirements for exit list processing^ 
see Appendix D, "DCB Exit List Format and Contents** on 
page 197. For additional information about exit list 
processing, see Data Administration Guide. 

Source: The EXLST operand can be supplied in the DCB macro 
instruction or by the problem program before the associated 
exit is required. 

KEYLENs absexp (maximum value is 255) 

The KEYLEN operand specifies the length, in bytes, of the 
key associated with each record in an indexed sequential 
data set. When blocked records are used, the key of the 
last record in the block (highest key) is used to identify 
the block. However, each logical record within the block 
has its own identifying key that ISAM uses to access a 
given logical record. 

Source: Hhen an ISAM data set is created, the KEYLEN 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before completion of the data control block exit 
routine. Hhen an existing ISAM data set is processed, the 
KEYLEN operand must be omitted, allowing the data set level 
to supply the key length value. KEYLEN=0 is not valid for 
an ISAM data set. 

LRECLg absexp (maximum value is device-dependent) 

The LRECL operand specifies the length, in bytes, for 
fixed-length records, or it specifies the maximum length, 
in bytes, for variable-length records. The value specified 
in the LRECL operand cannot exceed the value specified in 
the BLKSIZE operand. Hhen fixed, unblocked records are 
used and the relative key position (as specified in the RKP 
operand) is zero, the value specified in the LRECL operand 
should include only the data length (the key is not written 
as part of the fixed, unblocked record when RKPsO). 

The track capacity of the direct access device being used 
must be considered if maximum-length logical records are 
being used. For fixed-length records, the sum of the key 
length, data length, and device overhead plus 10 bytes (for 
ISAM use) must not exceed the capacity of a single track on 
the direct access device being used. For variable-length 
records, the sum of the key length, data length, device 
overhead, block-descriptoi — word length, and 
record-descriptor-word length plus 10 bytes (for ISAM use) 
must not exceed the capacity of a single track on the 
direct access device being used. Device capacities are 
shown in Appendix C, "Device Capacities** on page 19A. For 
additional information about device capacity and space 
allocation, see Data Administration Guide. 

Source: When an ISAM data set is created, the LRECL operand 
can be supplied in the DCB macro instruction, in the DCB 
subparameter of a DD statement, or by the problem program 
before completion of the data control block exit routine. 
When an existing ISAM data set is processed, the LRECL 
operand must be omitted, allowing the data set label to 
supply the value. 

HACRFsCC(PM)} 
{(PL)} 

{(GMCSCKinn} 

{(6LC»S{K|Z}]C,PU3)}> 
The MACRF operand specifies the type of macro instructions, 
the transmittal mode, and type of search to be used with 
the data set being processed. The operand can be coded in 
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any of the combinations shown above; the following 
describes the characters that can be coded. 

The following characters can be specified only when the 
data set is being created (load mode) or additional records 
are being added to the end of the data set (resume load): 

PL 

specifies that PUT macro instructions are used in the 
locate transmittal mode; the system provides the 
problem program with the addresfS of a buffer 
containing the data to be written into the data set. 

PN 

specifies that PUT macro instructions are used in the 
move transmittal mode; the system moves the data to be 
written from the problem program work area to the 
buffer being used. 

The following characters can be specified only when the 
data set is being processed (scan mode) or when records in 
an ISAM data set are being updated in place: 

6L 

specifies that GET macro instructions are used in the 
locate transmittal mode; the system provides the 
problem program with the address of a buffer 
containing the logical record read. 

GM 

specifies that GET macro instructions are used in the 
move mode; the system moves the logical record from 
the buffer to the problem program work area. 

I 

specifies that actual device addresses (MB6CCHHR) are 
used to search for a record (or the first record) to 
be read. 

K 

specifies that a key or key class is used to search 
for a record (or the first record) to be read. 

PU 

specifies that PUTX macro instructions are to be used 
to return updated records to the data set. 

S 

specifies that SETL macro instructions are used to set 
the beginning location for processing the data set. 

Source: The NACRF operand must be coded in the DCB 
macro instruction. 

NTMs absexD (maximum value is 99) 

The NTH operand specifies the number of tracks to be 
created in a cylinder index before a higher-level index is 
created. If the cylinder index exceeds this number » a 
master index is created by the system; if a master index 
exceeds this number* the next level of master index is 
created. The system creates as many as three levels of 
master indexes. The NTM operand is ignored unless the 
master index option (OPTCDsM) is selected. 

Source: Hhen an ISAM data set is being created, the NTM 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before completion of the data control block exit 
routine. Nhen an ISAM data set is being processed, master 
index information is supplied to the data control block 
from the data set label » and the NTH operand must be 
omitted. 
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OPTCDsCIHLHMHRlCUHWHY] 

The OPTCD operand specifies the optional services performed 
by the system when an ISAM data set is being created or 
updated. The following describes the characters that can 
be specified (these characters can be specified in any 
order/ and no commas are allowed between characters): 

Z 

specifies that the system uses the independent 
overflow areas to contain overflow records. Note that 
it is only the use of the allocated independent 
overflow area that is optional. Under certain 
conditions* the system designates an overflow area 
that was not allocated for independent overflow by the 
problem program. See "Allocating Space for an Indexed 
Sequential Data Set" in Data Administration Guide. 

L 

specifies that the data set will contain records 
flagged for deletion. A record is flagged for 
deletion by placing a hexadecimal value of *FF' in the 
first data byte. Records flagged for deletion remain 
in the data set until the space is required for 
another record to be added to the track and are 
ignored during sequential retrieval of the ISAM data 
set (QISAM/ scan mode). This option cannot be 
specified for blocked fixed-length records if the 
relative key position is 0 (RKP^O)/ or it cannot be 
specified for variable-length records if the relative 
key position is 4 (RKPs4). 

Hhen an ISAM data set is being processed with BISAM» a 
record with a duplicate key can be added to the data 
set (WRITE KN macro instruction), only when OPTCD=L 
has been specified and the original record (the one 
whose key is being duplicated) has been flagged for 
deletion. 

H 

specifies that the system create and maintain a master 
index(es) according to the number of tracks specified 
in the NTH operand. 

R 

specifies that the system place reorganization 
statistics in the DCBRORGl, DCBR0RG2, and DCBR0RG3 
fields of the data control block. The problem program 
can analyze these statistics to determine when to 
reorganize the data set. If the OPTCD operand is 
omitted^ the reorganization statistics are 
automatically provided. However* if the OPTCD operand 
is supplied* OPTCD^^R must be specified to obtain the 
reorganization statistics. 

U 

specifies that the system is to accumulate track index 
entries in storage and write them as a group for each 
track of the track index. OPTCD=U can be specified 
only for fixed-length records. The entries are 
written in fixed-length unblocked format. 

U 

specifies that the system is to perform a validity 
check on each record written. 

Y 

specifies that the system is to use the cylinder 
overflow area(s) to contain overflow records. If 
OPTCD=Y is specified* the CYLOFL operand specifies the 
number of tracks to be used for the cylinder overflow 
area. The reserved cylinder overflow area is not used 
unless OPTCD=Y is specified. 
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Source: Mhen an ISAM data set is created, the OPTCD 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before an OPEN macro instruction is issued to open 
the data set. However, all optional services must be 
requested from the same source. Hhen an existing ISAM data 
set is processed, the optional service information is 
supplied to the data control block from the data set label, 
and the Of TOD operand should be omitted. 

RECFMs{V[B]|F[B]} 

The RECFM operand specifies the format and characteristics 
of the records in the data set. If the RECFM operand is 
omitted, variable-length records (unblocked) are assumed. 
The following describes the characters that can be 
specified: 

B 

specifies that the data set contains blocked records. 

F 

specifies that the data set contains fixed-length 
records. 

V 

specifies that the data set contains variable-length 
records. 

Source: Hhen an ISAM data set is created, the RECFM 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before an OPEN macro instruction is issued to open 
the data set. When an existing ISAM data set is processed, 
the record format information is supplied by the data set 
labels and the RECFM operand should be omitted. 

If the record format information is supplied in the DD 
statement or the DCB, it must agree with the information in 
the data set label . 

RKP=a.hsfiXE 

The RKP operand specifies the relative position of the 
first byte of the key within each logical record. For 
example, if RKP=9 is specified, the key starts in the 10th 
byte of the record. The delete option (OPTCD=L) should not 
be specified if the relative key position is the first byte 
of a blocked fixed-length record or the fifth byte of a 
variable-length record. If the RKP operand is omitted, 
RKPsO is assumed. 

If unblocked fixed-length records with RKP=0 are used, the 
key is not written as a part of the data record, and the 
delete option can be specified. If blocked fixed-length 
records are used, the key is written as part of each data 
record; either RKP must be greater than zero or the delete 
option must not be used. 

If variable-length records (blocked or unblocked) are used, 
and if the delete option is not specified, RKP must be ^ or 
greater; if the delete option is specified, RKP must be 
specified as 5 or greater. The 4 additional bytes allow 
for the block descriptor word in variable-length records. 

Source: Nhen an ISAM data set is created, the RKP operand 
can be supplied in the DCB macro instruction, in the DCB 
subparameter of a DD statement, or by the problem program 
before completion of the data control block exit routine. 
Nhen an existing ISAM data set is processed, the RKP 
information is supplied by the data set label and the RKP 
operand should be omitted. 
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SYNADSrfilfiZfi 

The SYNAD operand specifies the address of the error 
analysis routine given control when an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation** on page 192. 

The error analysis routine must not use the save area 
pointed to by register 15, because this area is used by th« 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to th« 
system. Nhen control is returned in this manner^ the 
system returns control to the problem program and proceeds 
as though no error had been encountered; if the error 
analysis routine continues processing* the results may bo 
unpredictable. 

For additional information on error analysis routine 
processing for indexed sequential data sets* see J2ala 

Adniinistrsition Ovtide- 

Source: The SYNAD operand can be supplied in the DCB macro 
instruction or by the problem program. The problem program 
can also change the error analysis routine address at any 
time. 
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PCg-"CPN$TRVCT A PATA CPNTRQL BLPCK (Q$Ari? 

The data control block for the queued sequential access method 
(QSAM) is constructed during assembly of the problem program. 
The DSORG and HACRF operands must be coded in the DCB macro 
instruction^ but the other DCB operands can be supplied to the 
data control block from other sources. Each DCB operand 
description contains a heading^ "Source." The information under 
this heading describes the sources from which the operand can be 
supplied. 

For information on additional operands for the DCB macro for the 
IBM 3890 Document Processor^ see IBM 3890 Document Processor 
Machine and Proorammina Deseriptipn. 
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The DCB macro for QSAM is written* 
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^ This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

The following describes the operands that can be specified in 
the DCB macro instruction for a QSAM data sett 

BFALNSCPID} 

The BFALN operand specifies the boundary alignment of each 
buffer in the buffer pool when the buffer pool is 
constructed automatically or by a GETPOOL macro 
instruction. If the BFALN operand is omitted, the system 
provides doubleword alignment for each buffer. 

If the data set being created or processed contains 
ISCII/ASCII tape records with a block prefix, the block 
prefix is entered at the beginning of the buffer, and data 
alignment depends on the length of the block prefix. For a 
description of how to specify the block prefix length, 
refer to the description of the BUFOFF operand. 
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The following describes the characters that can be 

specified: 

F 

specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 

specifies that each buffer is on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool; the problem program must control buffer 
alignment . 

Source: The 6FALN operand can be supplied in the DCB macro 
instruction/ in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the EFALN and BFTEK 
operands are specified, they must be supplied from the same 
source. 

BFTEK={SIA3 

The BFTEK operand specifies the buffering technique that is 
used when the QSAM data set is created or processed. If 
the BFTEK operand is omitted, simple buffering is assumed. 
The following describes the characters that can be 
specified: 

S 

specifies that simple buffering is used. 

A 

specifies that a logical record interface is used for 
variable-length spanned records. When BFTEK=A is 
specified, the open routine acquires a record area 
equal to the length specified in the LRECL field plus 
32 additional bytes for control information. LRECL=0 
is invalid. The LRECL provided at open should be the 
maximum length in bytes. The open routine uses this 
value to acquire the record area. When a logical 
record interface is requested^ the system uses the 
simple buffering technique. 

BFTEKsA is invalid with MOVE mode. 

To use the simple technique efficiently, the user should be 
familiar with the three transmittal modes for QSAM and the 
buffering techniques described in Data Administration 
QMidQ. 

Source: The BFTEK operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFTEK and BFALN 
operands are specified, they must be supplied from the same 
source. 

BLKSIZE= 9b^exp ( maximum value is 32760 for IBM standard labels) 
The BLKSIZE operand specifies the length, in bytes, of a 
data block for fixed-length records, or it specifies the 
maximum length, in bytes, of a data block for 
variable-length or undefined-length records. 

The actual value that can be specified in the BLKSIZE 
operand depends on the device type and record format being 
used. Device capacities are shown in Appendix C, "Device 
Capacities" on page 194. (For additional information about 
device capacity, refer to Data Administration Guide.) 

For direct access devices when track overflow is used or 
variable-length spanned records are being processed, the 
BLKSIZE operand can be up to the maximum value. For other 
record formats used with direct access devices, the value 



Macro Instruction Descriptions 75 



OCB (QSAH) 



specified in the BLKSZZE operand cannot exceed the capacity 
of a single track. 

Because QSAM provides a logical record interface^ the 
device capacities shown in Appendix "Device Capacities" 
on page 194> also apply to a maximum-length logical record. 
One exception to the device capacity for a logical record 
is the size of variable-length spanned records. Their 
length can exceed the value specified in the BLKSZZE 
operand (see the description of the LRECL operand). 

If fixed-length records are used» the value specified in 
the BLKSIZE operand must be an integral multiple of the 
value specified in the LRECL operand. If the records are 
unblocked fixed-length records* the value specified in the 
BLKSIZE operand must equal the value specified in the LRECL 
operand if the LRECL operand is specified. 

If variable-length records are used* the value specified in 
the BLKSIZE operand must include the data length (up to 
32756 bytes) plus 4 bytes required for the block descriptor 
word (BDH). For format-D variable-length records* the 
minimum BLKSIZE is 18 bytes. The maximum is 2048 bytes. 
For more information about the BLKSZZE restrictions* see 
Da-^a A<;<niinistrg^ion Qvide* 

If ISCII/ASCII tape records with a block prefix are 
processed* the value specified in the BLKSZZE operand must 
also include the length of the block prefix. If an 
ISCII/ASCII format DB or DBS tape data set is opened for 
output using QSAM with the system acquiring the buffers and 
BUFOFF=0 specified* the value specified in the BLKSIZE 
operand must be increased by 4 to allow for a 4 byte QSAM 
internal processing area. If BUFL is specified* the BUFL 
operand value must be increased by 4* instead of the 
BLKSZZE operand value. 

If variable-length spanned records are used* the value 
specified in the BLKSIZE operand can be the best one for 
the device being used or the processing being done. Hhen 
unit record devices (card or printer) are used* the system 
assumes records are unblocked; the value specified for the 
BLKSIZE operand is equivalent to one print line or one 
card. A logical record that spans several blocks is 
written one segment at a time. 

If undefined-length records are used* the problem program 
can insert the actual record length into the DCBLRECL 
field. See the description of the LRECL operand. 

Source: The BLKSIZE operand can be supplied in the DOB 
macro instruction* in the DOB subparameter of a DD 
statement* by the problem program before completion of the 
data control block exit routine* or by the data set label 
of an existing data set. 

Note: The maximum block size for Version 3 ISO/ANSI/FIPS 
tapes (ISO 1001-1979 or ANSI X3.27 1978) is 2048 bytes. An 
attempt to exceed 2048 bytes for a Version 3 tape results 
in a label validation installation exit being taken. 

BUFCBsi:£l£2ie 

The BUFCB operand specifies the address of the buffer pool 
control block constructed by a BUILD or BUILDRCD macro 
instruction. 

if the buffer pool is constructed automatically or by a 
GETPOOL macro instruction* the system places the address of 
the buffer pool control block into the data control block* 
and the BUFCB operand should be omitted. 

Source: The BUFCB operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 
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BUFLS p^sexp (maximum value is 32760) 

The BUFL operand specifies the length, in bytes, of each 
buffer in the buffer pool when the buffer pool is acquired 
automatically. If the BUFL operand is omitted, the system 
acquires buffers with a length equal to the value specified 
in the BLKSIZE operand; if the problem program requires 
larger buffers, the BUFL operand is required. If the data 
set is for card image mode, the BUFL operand is specified 
as 160 bytes. The description of the DEVD operand contains 
a description of card image mode. 

If the data set contains ISCII/ASCII tape records with a 
block prefix, the value specified in the BUFL operand must 
also include the length of the block prefix. If an 
ISCII/ASCII format DB or DBS tape data set is opened for 
output using QSAM and BUFOFF=0 is specified, then the BUFL 
operand value, if specified^ must be increased by 4 to 
allow for a 4~byte QSAM internal processing area. 

If the buffer pool is constructed by a BUILD» BUILDRCD, or 
GETPOOL macro instruction, the BUFL operand is not 
required. 

Source: The BUFL operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFNQs absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers in the 
buffer pool constructed by a BUILD or BUILDRCD macro 
instruction, or it specifies the number of buffers to be 
acquired automatically. If chained scheduling is 
specified, the value of BUFNO determines the maximum number 
of channel program segments that can be chained and must be 
specified as more than one. If the BUFNO operand is 
omitted and the buffers are acquired automatically, the 
system acquires three buffers if the device is a 2540 
device or five buffers for any other device type. 

If the buffer pool is constructed by a GETPOOL macro 
instruction, the BUFNO operand is not required. 

Source: The BUFNO operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFOFF=tafcs£Xfi|LJ 

The BUFOFF operand specifies the length, in bytes, of the 
block prefix used with ISCII/ASCII tape data sets. When 
QSAM is used to read ISCII/ASCII tape records, only the 
data portion (or its address) is passed to the problem 
program; the block prefix is not available to the problem 
program. Block prefixes (except BUFOFF^L) cannot be 
included in QSAM output records. The following can be 
specified in the BUFOFF operand t 



specifies the length, in bytes, of the block prefix. 
This value can be from 0 to 99 for an input data set. 
The value must be 0 for writing an output data set 
with fixed-length or undefined-length records. 

L 

specifies that the block prefix is A bytes long and 
contains the block length. BUFOFF=L is used when 
format-D records (ISCII/ASCII) are processed. QSAM 
uses the 4 bytes as a block-descriptor word (BDN) . 
For further information on this operand, see 
"Variable-Length Records — Format D" in Jiais. 
Administration Guide. 
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Source: The BUFOFP operand can be supplied in the DCB 
macro instruction^ in the DCB subparameter of a DD 
statement* or by the problem program before an OPEN macro 
instruction is issued to open the data set. BUFOFF^absexp 
can also be supplied by the second system label of an 
existing data set; BUFOFF-L cannot be supplied by the label 
of an existing data set. 

The DONAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 

Source: The DDNAHE operand can be supplied in the DCB 
macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 

DEVDsCfiA I TA I PR I PCI RD} C » options] 

The DEVD operand specifies the device type where the data 
set can or does reside. The device types above are shown 
with the optional operand(s) that can be coded when a 
particular device is used. The devices are listed in order 
of device independence. For example* if DEVD=DA is coded 
in a DCB macro instruction (or the DEVD operand is omitted* 
which causes a default to DA)* the data control block 
constructed during assembly could later be used for any of 
the other devices* but* if DEVO=RD is coded* the data 
control block can be used only with a card reader or card 
reader punch. Unless you are certain that device 
interchangeability is not required* you should either code 
DEVD^DA or omit the operand and allow it to default to DA. 

If system input is directed to an intermediate storage 
device* the DEVD operand is omitted* and the job control 
language for the problem program must designate the system 
input to be used. Similarly* if system output is directed 
to an intermediate storage device* the DEVD operand is 
omitted* and the job control language for the problem 
program must designate the system output to be used. If 
DEVD=PR* PC* or RD is coded* the DCB macro should not be 
coded within the first 16 bytes of addressability for the 
control section. 

The DEVD operand is discussed below according to individual 
device type: 

DEVD=M 

specifies that the data control block can be used for 
a direct access device (or any of the other device 
types described following DA). 

DEVDsTA 

C,DEN={1|2|3|4}] 

[,TRTCH=CC|E|ET|T>1 

specifies that the data control block can be used for 
a magnetic tape data set (or any of the other device 
types described following TA) . If TA is coded* the 
following optional operands can be coded: 

DENs{li2i3iA} 

The DEN operand specifies the recording density 
in the number of bits'per-inch per track as shown 
in the following: 

Recording Density 

DEN 7-Track 9-Track 18-Track 

1 556 N/A N/A 

2 800 800 (NRZI)i N/A 

3 N/A 1600 (PE)2 N/A 
^ N/A 6250 (GCR)' N/A 
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* NRZI is for nonreturn— to— zero inverted mode. 
^ PE is for phase encoded mode. 

* GCR is for group coded recording mode. 

TRTCH=CC|E|ET|T} 

The TRTCH operand specifies the recording 
technique for 7-track tape. One of the above 
character combinations can be coded. If the 
TRTCH operand is omitted^ odd parity with no 
translation or conversion is assumed. The 
following describes the characters that can be 
specified: 

C 

specifies that the data-conversion feature 
is used with odd parity and no translation. 



specifies even parity with no translation or 
conversion . 



ET 



specifies even parity with BCDIC to EBCDIC 
translation required^ but no data-conversion 
feature. 

T 

specifies that BCDIC to EBCDIC translation 
is required with odd parity and no 
data-conversion feature. 

DEVD=PR 

£,PRTSP={0Ilj2|3}3 

Specifies that the data control block is used for an 
on-line printer Cor any of the other device types 
following PR). If PR is coded^ the following optional 
operand can be coded: 

PRTSP={0tli2{3} 

The PRTSP operand specifies the line spacing on 
the printer. This operand is not valid if the 
RECFH operand specifies either machine (RECFM=M), 
ANSI (RECFM=A), or ISO control characters. If 
the PRTSP operand is not specified from any 
source/ one is assumed. The following describes 
the characters that can be specified: 

0 

specifies that spacing is suppressed (no 
space) . 

1 

specifies single spacing. 

2 

specifies double spacing (one blank line 
between printed lines) . 

3 

specifies triple spacing (two blank lines 
between printed lines). 

Note: MODE and FUNC subparameters cannot be 
used with this specification. 

DEVDsPC 

C»NODE=[C|£3[R]3 
£»STACK=ai2>] 

C»FUNC={I tPlPUCXTl IRIRPCOI iRWtTI |RWPtXT3[D] iWCTl}] 

Specifies that the data control block is used for a 
card punch (or any of the other device types following 
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PC). If PC is coded* the following optional operands 
can be specified: 

HODEsCClEHRn 

The MODE operand specifies the mode of operation 
for the card punch. If the MODE operand is 
omitted* E is assumed. The following describes 
the characters that can be specified: 

C 

specifies that the cards are to be punched 
in card image mode. In card image mode* the 
12 rows in each card column are punched from 
two consecutive bytes of virtual storage. 
Rows 12 through 3 are punched from the 6 
low-order bits of one byte* and rows ^ 
through 9 are punched from the 6 low-order 
bits of the following byte. 

£ 

specifies that cards are to be punched in 
EBCDIC code. 

STACKs{ll2> 

The STACK operand specifies the stacker bin where 
the card is placed after punching is completed. 
If this operand is omitted* stacker number 1 is 
used. The following describes the characters 
that can be specified: 

I 

specifies stacker number 1. 

2 

specifies stacker number 2. 

FUNCs{X|p|PW[XTI|R|RPID]iRWETl|RWPCXT]IO]|WCT3> 

The FUNC operand defines the type of 3525 card 
punch data sets that is to be used. If the FUNC 
operand is omitted from all sources* a data set 
opened for input defaults to read only* and a 
data set opened for output defaults to punch 
only. The following describes the characters 
that can be specified in the FUNC operand: 

D 

specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. Nhen the 
data protection option is used* an 80-byte 
data protection image (DPI) must have been 
previously stored in SYSl . IMAGELIB. Data 
protection applies only to the output punch 
portion of a read and punch or read* punch* 
and print operation. 

Z 

specifies that the data in the data set is 
to be punched into cards and printed on the 
cards; the first 64 characters are printed 
on line 1 of the card and the remaining 16 
characters are printed on line 3. 

P 

specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 

R 

specifies that the data set is for reading 
cards. 
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T 

specifies that the two-line option is used. 
The two-line print option allows two lines 
of data to be printed on the card (lines 1 
and 3). If T is not specified^ the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
either case» the data printed may be the 
same as the data punched in the card» or it 
may be entirely different data. 

W 

specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 

X 

specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 

Note: If data protection is specified, the data 
protection image (DPI) must be specified in the 
FCB subparameter of the DD statement for the data 
set. 

DEVDsRD 

[,MODEsCC|£3CO|R]3 
t»STACKs{ll2}3 

C>FUNC={Z|P|PW[XT]|R|RP[D3|RWCT3|RWP[XT][D]|W[T]}] 



RD 

specifies that the data control block is used with a 
card reader or card read punch. If RD is specified, 
the data control block cannot be used with any other 
device type. Hhen RD is coded, the following optional 
operands can be specified: 

H0DE=[C|£][0iR3 

The MODE operand specifies the mode of operation 
for the card reader. The following describes the 
characters that can be specified: 

C 

specifies that the cards to be read are in 
card image mode. In card image mode, the 12 
rows of each card column are read into two 
consecutive bytes of virtual storage. Rows 
12 through 3 are read into the 6 low-order 
bits of one byte, and rows <i through 9 are 
read into the 6 low-order bits of the 
following byte. 

£ 

specifies that the cards to be read contain 
data in EBCDIC code. 

0 

specifies that the program runs in optical 
mark read mode (3505 card reader). 

R 

specifies that the program runs in 
read-column-eliminate mode (3505 card reader 
and 3525 card punch, read feature) . 

Note: If the MODE operand for a 3505 or 3525 is 
specified in the DCB subparameter of a DD 
statement, either C or E must be specified if R 
or 0 is specified. 
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STACK={1|2} 

The STACK operand specifies the stacker bin into 
which the card is placed after reading is 
completed. If this operand is omitted/ stacker 
number 1 is used. The following describes the 
characters that can be specified: 

I 

specifies stacker number 1. 

2 

specifies stacker number 2. 

FUNCsCIiPiPWCXT] lRiRPCD]|RWCT]iRVjPCXT][D]iW[T]} 

The FUNC operand defines the type of 3525 card 
punch data sets that are used. If the FUNC 
operand is omitted from all sources^ a data set 
opened for input defaults to read only^ and a 
data set opened for output defaults to punch 
only. The following describes the characters 
that can be specified in the FUNC operandi 

D 

specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. Nhen the 
data protection option is used/ an 80-byte 
data protection image (DPI) must have been 
previously stored in SYSl . IMAGELIB . Data 
protection applies only to the output punch 
portion of a read and punch or read/ punch/ 
and print operation. 

X 

specifies that the data in the data set is 
to be punched into cards and printed on the 
cards; the first 64 characters are printed 
on line 1 of the card and the remaining 16 
characters are printed on line 3. 

P 

specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 

R 

specifies that the data set is for reading 
cards. 

T 

specifies that the two-line option is used. 
The two-line print option allows two lines 
of data to be printed on the card (lines 1 
and 3). If T is not specified/ the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
either case, the data printed may be the 
same as the data punched in the card/ or it 
may be entirely different data. 

W 

specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 

X 

specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 
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Note: If data protection is specified/ the 
data protection image (DPI) must be 
specified in the FCB subparameter of the DD 
statement for the data set. 

Source: The DEVD operand can be supplied only in 
the DCB macro instruction. However* the optional 
operands can be supplied in the DCB macro 
instruction* the DCB subparameter of a DD 
statement* or by the problem program before 
completion of the data control block exit 
routine. 

DSORG={PS|PSU} 

The DSORG operand specifies the organization of the data 
set and indicates if the data set contains any 
location-dependent information that would make it 
unmovable. The following can be specified in the DSORG 
operand* 

PS 

Specifies a physical sequential data set. 

PSU 

Specifies a physical sequential data set that contains 
location-dependent information. 

Source: The DSORG operand must be coded in the DCB 
macro instruction. 

EODADs relexp 

The EODAD operand specifies the address of the routine 
given control when the end of an input data set is reached. 
Control is given to this routine when a GET macro 
instruction is issued and there are no additional records 
to be retrieved. If the record format is RECFH=FS or FBS 
the end-of-data condition is sensed when file mark is read 
or if more data is requested after reading a truncated 
block. If the end of the data set has been reached but no 
EODAD address has been supplied to the data control block* 
or if a GET macro instruction is issued after an 
end-of-data exit is taken* the task is abnormally 
terminated. For additional information on the EODAD 

routine* see Data Administratipn Gtiid9» 

Source: The EODAD operand can be supplied in the DCB macro 
instruction or by the problem program before the end of the 
data set has been reached. 

EROPT=CACC ISKP I AMI 

The EROPT operand specifies the action taken by the system 
if an uncorrectable input/output data validity error occurs 
and no error analysis (SYNAD) routine address has been 
provided* or it specifies the action taken by the system 
after the error analysis routine has returned control to 
the system with a RETURN macro instruction. The specified 
action is taken for input operations for all devices or for 
output operations to a printer. 

Uncorrectable input/output errors resulting from channel 
operations or direct access operations that make the next 
record inaccessible cause the task to be abnormally 
terminated regardless of the action specified in the EROPT 
operand. 

ACC 

specifies that the problem program accepts the block 
causing the error. This action can be specified when 
a data set is opened for INPUT* RDBACK* UPDAT* or 
OUTPUT (OUTPUT applies to printer data sets only). 

SKP 

specifies that the block that caused the error is to 
be skipped. Specifying SKP also causes the buffer 
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associated with the data block to be released. This 
action can be specified when a data set is opened for 
INPUT, RDBACK, or UPOAT. 

specifies that the error is to result in the abnormal 
termination of the task. This action can be specified 
when the data set is opened for INPUT, OUTPUT, RDBACK, 
or UP DAT. 

If the EROPT operand is omitted, the ABE action is assumed. 

Note: If the EROPT operand is ACC or SKIP, accept or skip 
processing is done after returning from the error analysis 
(SYNAD) routine. For this reason, FEOV should not be 
issued from within the error analysis routine. 

Source: The EROPT operand can be specified in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, or by the problem program at any time. The 
problem program can also change the action specified at any 
time. 

EXLSTs pel exp 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required if the 
problem program requires additional processing for the 
following: user labels, user totaling, data control block 
exit routines, end-of-volume, block count exits, defining a 
forms control buffer (FCB) image, using the JFCBE exit (for 
the 3800 printer), or using the DCB abend exit for abend 
condition analysis. 

For the format and requirements of exit list processing, 
see Appendix D, "DCB Exit List Format and Contents" on 
page 197. For additional information about exit routine 
processing, see Pa-^a A^lministratiqn PMidq. 

Source: The EXLST operand can be supplied in the DCB macro 
instruction or by the problem program any time before the 
exit is required by the problem progra.m. 

LRECL=Cahs^ I X I OK I nmmnK} 

The LRECL operand specifies the length, in bytes, for 
fixed-length logical records, or it specifies the maximum 
length, in bytes, for variable-length or undefined-length 
(output only) logical records. The value specified in the 
LRECL operand cannot exceed the value specified in the 
BLKSXZE operand except when variable-length spanned records 
are used. 

For fixed-length records that are unblocked, the value 
specified in the LRECL operand must be equal to the value 
specified in the BLKSXZE operand. For blocked fixed-length 
records, the value specified in the LRECL operand must be 
evenly divisible into the value specified in the BLKSXZE 
operand. 

For variable-length logical records, the value specified in 
the LRECL operand must include the maximum data length Cup 
to 32752) plus 4 bytes for the record-descriptor word 
(RDM). 

For undefined-length records, the problem program must 
insert the actual logical record length into the DCBLRECL 
field before writing the record, or the maximum-length 
record will be written. 

For variable-length spanned records, the logical record 
length (LRECL) can exceed the value specified in the 
BLKSXZE operand, and a variable-length spanned record can 
exceed the maximum block size (32760 bytes). When the 
logical record length exceeds the maximum block size (for 
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non-XLRI processing) » LRECL^X must be specified and GET or 
PUT locate mode must be used. 

For ISO/ANSI/FIPS variable-length spanned records (RECFM=DS 
or RECFM=DBS), the extended logical record interface (XLRI) 
may be used when the maximum logical record length exceeds 
32760 bytes. XLRI must be invoked by specifying LRECL=OK 
or LRECL=nnnnnK. The value nnnnnK may range from IK to 
16383K. 1he value determines the size of the record area 
(in 1024'byte units) required to contain the longest 
logical record of the data set. Mhen LRECL=OK is 
specified^ the length of the longest logical record must 
come from the DD statement or the data set label. XLRI 
processing is only valid in QSAM locate mode. You must not 
specify LRECL=X for RECPM=PS or m. 

Source; The LRECL operand can be supplied in the DCB macro 
instruction^ in the DCB subparameter of a DD statements by 
the problem program before completion of the data control 
block exit routine^ or by the data set label of an existing 
data set. The label will indicate a logical record length 
of '99999* when an IBM standard label tape contains a 
logical record equal to or greater than lOOK bytes. The 
label will indicate '00000* if the same maximum is reached 
for an ISO/ANSI/FIPS label tape. 

Note: Mhen LRECL=OK is used in the DCB, the LRECL data 
must come from JCl, the file label (for an input data set), 
or from the DCB exit during open merge. 

Although LRECL'OK is only valid when RECFM=DS or DBS, you 
can specify the OK option on the DCB macro even though the 
RECFM is not determined until the DCB is opened. (The 
RECFM is obtained from the data set label or the DD 
statement.) If you specify neither the DS nor the DBS 
option, the system turns the OK indicator off, and restores 
it when the DCB is closed. 

HACRF={{(GCMiLiD>[Cn} 

{(PCM|L|D>[C])» 

{(G{M|L|D}[C]»P{MlLlTlD}tCn}} 
The MACRF operand specifies the type of macro instructions 
(GET, PUT or PUTX, CNTRL, RELSE, and TRUNC) and the 
transmittal modes (move, locate, and data) that are used 
with the data set being created or processed. The operand 
can be coded in any of the combinations shown above; the 
following describes the characters that can be coded.* 

C 

specifies that the CNTRL macro instruction is used 
with the data set. If the CNTRL macro instruction is 
specified, the data set should be for a card reader 
(stacker selection) or printer (carriage and spacing 
control). The CNTRL option can be specified with GET 
in the move mode only. Use of the CNTRL macro is 
invalid for 3525 input data sets. 

D 

specifies that the data transmittal mode is used (only 
the data portion of a record is moved to or from the 
work area). Data mode is used only with 
variable-length spanned records. 

G 

specifies that GET macro instructions are used. 
Specifying G also provides the routines that allow the 
problem program to issue RELSE macro instructions. 

L 

specifies that the locate transmittal mode is used; 
the system provides the address of the buffer 
containing the data. 
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specifies that the move transmittal mode is used; the 
system moves the data from the buffer to the work area 
in the problem program. 

P 

specifies that PUT or PUTX macro instructions are 
used. Specifying P also provides the routines that 
allow the problem program to issue TRUNC macro 
instructions. 

Note: For data sets processed by QSAN using MACRF=(GM) or 
MACRFs(PH), do not code BFTEKsA. 

Source: The MACRP operand caii be supplied only in the DCB 
macro instruction. 

OPTCDsCCB} 
CTJ 

{CCTHBHU31 

{HCZHBl} 

{JCC]CU]} 

{WCCHTlCBHUn 

{ZCC3CTH61CU3} 

{Q[C][B]CT]} 

The OPTCD operand specifies the optional services used with 
the QSAM data set. Two of the optional services, OPTCDsB 
and OPTCD=H» cannot be specified in the DCB macro 
instruction. They are requested in the DCB subparameter of 
a DD statement. Because all optional services codes must 
be supplied by the same source, the OPTCO operand must be 
omitted from the DCB macro instruction if either of these 
options is requested in a DD statement. The following 
describes the characters that can be specified t 

C 

requests that chained scheduling be used. OPTCD=C 
cannot be specified when either BFTEK=A or BFTEK=R is 
specified for the same data control block. Also, 
chained scheduling cannot be specified for associated 
data sets or printing on a 3525 and is ignored for 
direct access devices. 

Note: Except where it is not allowed, chained 
scheduling is used whether requested or not. For 
conditions under which it is not allowed, see Dat^ 

Administrati<?n gvi;!^. 

J 

specifies that the first data byte in the output data 
line will be a 3800 table reference character. This 
table reference character selects a particular 
character arrangement table for the printing of the 
data line and can be used singly or in conjunction 
with ISO/ANSI/FIPS or machine control characters. 
This option is valid only for the IBM 3800 Printing 
Subsystem. For information on the table reference 
character and character arrangement table, see L&H 
3800 Printing Subsystem Programmer's Guida> 



Q 



requests that ISCII/ASCII tape records in an input 
data set be converted to EBCDIC code when the input 
record has been read, or an output record in EBCDIC 
code be converted to ISCII/ASCII code before the 
record is written. For further information on this 
conversion, see "Variable-Length Records— Format D" in 

P9-<;a A<jn^4nistra-^iQn gMi<:ie. 

The Q option is unconditionally set by open routines 
if the data set is for a tape with ISO/ANSI/FIPS 
labels. For ISCII/ASCII to EBCDIC or EBCDIC to 
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iscii/ASCii translations, see Magnetic Tapg lal??ls and 
Fitg Strtigttire Adtninis'tratign- 

T 

requests the user totaling function. If this function 
is requested/ the EXIST operand should specify the 
address of an exit list to be used. T cannot be 
specified for a SYSIN or SYSOUT data set. 

U 

is specified only for a printer with the 
universal-character-set feature or the IBM 3800 
Printing Subsystem. This option unblocks data checks 
(permits them to be recognized as errors) and allows 
analysis by the appropriate error analysis routine 
(SYNAD exit routine). If the U option is omitted, 
data checks are not recognized as errors. 

For the IBM Mass Storage System (MSS): U requests 
window processing to reduce the amount of staging 
space required to process large sequential data sets 
on MSS. DS0R6 must specify physical sequential, 
allocation must be in cylinders, and type of I/O 
accessing must be either INPUT only or OUTPUT only. 

M 

for DASD, specifies that the system is to perform a 
validity check on each record written on a direct 
access device. For buffered devices, specifies that 
device end interrupt is to be given only when a record 
is physically on the device. By specifying OPTCD=W 
with buffered devices, you do not benefit from the 
performance advantage of buffering. 

Z 

requests, for magnetic tape, input only, the system to 
shorten its normal error recovery procedure to 
consider a data check as a permanent I/O error after 
five unsuccessful attempts to read a record. This 
option is available only if it is also specified as a 
SYSGEN option. OPTCD=Z is used when a tape is known 
to contain errors and there is no need to process 
every record. The error analysis routine (SYNAD) 
should keep a count of permanent errors and terminate 
processing if the number becomes excessive. 

For direct access devices only, the Z option is 
ignored. 

Note: The following describes the optional services that 
can be specified in the DCB subparameter of a DD statement. 
If either of these options is requested, the complete OPTCD 
operand must be supplied in the DD statement. 

B 

If OPTCD^B is specified in the DCB subparameter of a 
DD statement, it forces the end-of-volume (EOV) 
routine to disregard the end-of-file recognition for 
magnetic tape. When this occurs, the EOV routine uses 
the number of volume serial numbers to determine end 
of file. For an input data set on a standard labeled 
(SL or AL) tape, the EOV routine will treat EOF labels 
as EOV labels until the volume serial list is 
exhausted. After all the volumes have been read, 
control is passed to the user's end-of-data routine. 
This option allows SL or AL tapes to be read out of 
volume sequence or to be concatenated to another tape 
using one DD statement. 

H 

If OPTCD=H is specified in the DCB subparameter of a 
DD statement, it specifies that the DOS/OS interchange 
feature is being used with the data set. 
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RECFHs{{UCT3CAiHn> 

{VCBCS]CT]|SCT]|T3CA|N]> 

{DIBtSmSHAl]} 

CFIBISITIBSIBTHAIM]}} 
The RECFM operand specifies the record format and 
characteristics of the data set being created or processed. 
All record formats can be used in QSAM. The following 
describes the characters that can be specified* 

A 

specifies that the records in the data set contain 
ISO/ANSI/FIPS control characters. For a description 
of control characters* see Appendix E, "Control 
Characters" on page 199. 

B 

specifies that the data set contains blocked records. 

D 

specifies that the data set contains variable-length 
ISCII/ASCII tape records. See OPTCOsQ and the BUFOFF 
operand for a description of how to specify 
ISCII/ASCII data sets. 

F 

specifies that the data set contains fixed-length 
records. 

N 

specifies that the records in the data set contain 
machine code control characters. For a description of 
control characters* see Appendix E> "Control 
Characters" on page 199. RECFH=M cannot be used with 
ISCII/ASCII data sets. 

S 

specifies* for fixed-length records, that the records 
are to be written as standard blocks; the data set 
does not contain any truncated blocks or unfilled 
tracks* with the exception of the last block or track 
in the data set. Do not code S for fixed-length 
records to retrieve records from a data set that was 
created using a RECFM other than standard. 

For variable-length records* S specifies that a record 
can span more than one block. 

T 

specifies that track overflow is used with the data 
set. Track overflow allows a record to be written 
partially on one track and the remainder of the record 
on the following track (if required). Chained 
scheduling (OPTCOsQ) cannot be requested if track 
overflow is used. 



specifies that the data set contains undefined-length 
records. 

Note: Format-U records are not supported for Version 
3 ISO/ANSI/FIPS tapes. An attempt to process a 
format-U record for a Version 3 tape results in a 
label validation installation exit being taken. 

ISO/ANSI Version 1 (ISO 1001-1969 or ANSI X3. 27-1969) 
format-U records can be used for input only. These 
records are the same as the format-U records described 
above* except that the control characters must be 
ISO/ANSI control characters* and block prefixes can be 
used. 

V 

specifies that the data set contains variable-length 
records. 
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Notes: 

• RECFM=V cannot be specified for a card reader data set 
or an ISO/ANSI/FIPS tape data set. 

• RECFMsVS^ VBS» DS» or DBS cannot be specified for a 
SYSIN data set. 

• RECFM=DS or RECFM=DBS provides blocking^ unblocking^ 
and segmenting for Version 3 ISO/ANSI/FIPS tape data 
sets. 

Source: The RECFM operand can be supplied in the DCB macro 
instruction* in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
block exit routine* or by the data set label of an existing 
data set. 

SYNADsjifiiSKE 

The SYNAD operand specifies the address of the error 
analysis routine given control if an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A/ "Status Information Following an 
Input/Output Operation" on page 192. 

The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. 

If the error condition was the result of a data-validity 
error, the control program takes the action specified in 
the EROPT operand; otherwise, the task is abnormally 
terminated. The control program takes these actions when 
the SYNAD operand is omitted or when the error analysis 
routine returns control. 

Source: The SYNAD operand can be supplied in the DCB macro 
instruction or by the problem program. The problem program 
can also change the error routine address at any time. 
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DCBD— PROVIDE SYMBOLIC REFERENCE TO DATA C ONTROL BLOCKS (BDAM. BISAM. BPAM> BSAM, 
Qt?AM, ANP Q?AH? 

The DCBD macro instruction is used to generate a dummy control 
section that provides symbolic names for the fields in one or 
more data control blocks. The names and attributes of the 
fields appear as part of the description of each data control 
block in Appendix F, "Data Control Block Symbolic Field Names" 
on page 20Z. Attributes of the symbolically named fields in the 
dummy section are the same as the fields in the data control 
blocks/ with the exception of fields containing 3-byte 
addresses. The symbolically named fields containing 3-byte 
addresses have length attributes of 4 and are aligned on 
fullword boundaries. 

The labels generated by the DCBD macro should not be defined 
within a user program. The macro labels are structured as DCB 
xxxxx/ where DCB is the first 3 characters and xxxxx is 1 to 5 
alphameric characters. 

The name of the dummy control section generated by a DCBD macro 
instruction is IHADCB. The use of any of the symbolic names 
provided by the dummy section must be preceded by a USING 
instruction specifying IHADCB and a dummy section base register 
(which contains the address of the actual data control block). 
The DCBD macro instruction can only be issued once within any 
assembled module; however/ the resulting symbolic names can be 
used for any number of data control blocks by changing the 
address in the dummy section base register. The DCBD macro 
instruction can be coded at any point in a control section; if 
coded at any point other than at the end of a control section* 
however/ the control section must be resumed by coding a CSECT 
instruction. 

The DCBD macro is written: 



b 


DCBD 


CDS0R6s({GS| 






[BS]C>DA]C»XS][»LR]C»P03C,PSH,QSn)] 






[»DEVDs([DAIC,PC]E»PRH»RD]C,TA] 






CHR])] 



DSOR6s({GStCBSH,DA]CFZS3C,LR][,PO]C>PS]C,QS]}) 

The DS0R6 operand specifies the types of data control 
blocks for which symbolic names are provided. If the DS0R6 
operand is omitted/ the DEVO operand is ignored/ and 
symbolic names are provided only for the 'foundation block' 
portion that is common to all data control blocks. One or 
more of the following pairs of characters can be specified 
(each pair of characters must be separated by a comma)* 

BS 

specifies a data control block for a sequential data 
set and basic access method. 

DA 

specifies a data control block for a direct data set. 

IS 

specifies a data control block for an indexed 
sequential data set. 

LR 

specifies a dummy section for the logical record 
length field (DCBLRECL) only. 

PO 

specifies a data control block for a partitioned data 
set. 

PS 

specifies a data control block for a sequential data 
set. PS includes both BS and QS. 
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QS 

specifies a data control block for a sequential data 
set and queued access method. 

6S 

specifies a data control block for graphics; this 
operand cannot be used in combination with any of the 
above. 

DEVD:[DAH,PCH,PR][,RD]1,TA][»MR3 

The DEVD operand specifies the types of devices on which 
the data set can reside. If the DEVD operand is omitted 
and a sequential data set is specified in the DSORG 
operand/ symbolic names are provided for all the device 
types listed below. One or more of the following pairs of 
characters can be specified; each pair of characters must 
be separated by a comma t 

DA 

Direct access device 

PC 

On— line punch 

PR 

On— line printer 

RD 

On— line card reader or read punch feed 

TA 

Magnetic tape 

MR 

Magnetic character reader 



Macro Instruction Descriptions 91 



ESETL 



ESgTk— EHP $gQMENTIA(. RETRtEYAU (QI$An? 



The ESETL macro instruction ends the sequential retrieval of 
data from an indexed sequential data set and causes the buffers 
associated with the specified data control block to be released. 
An ESETL macro instruction must separate SETL macro instructions 
issued for the same data control block. 

The ESETL macro is written t 



Cs^OOizflll ESETU 



dgb address 



deb address — RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block opened for the indexed sequential data set 
being processed. 
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PEOV— FORCE END OF VOLUME IBSAM AND QSAMl 

The FEOV macro instruction causes the system to assume an 
end-of-volume condition^ and causes automatic volume switching. 
Volume positioning for magnetic tape can be specified by the 
option operand. If no option is coded^ the positioning 
specified in the OPEN macro instruction is used. Output labels 
are created as required and new input labels are verified. The 
standard exit routines are given control as specified in the 
data control block exit list. For BSAM> all input and output 
operations must be tested for completion before the FEOV macro 
instruction is issued. The end-of-data-set (EODAD) routine is 
given control if an input FEOV macro instruction is issued for 
the last volume of an input data set. FEOV is ignored if issued 
for a SYSIN or SYSOUT data set. 

The FEOV macro is written t 





FEOV 


?Jpb pddre55 






Cr REWIND U LEAVE] 



deb address — RX-Type Address^ (2-12) » or (1) 

The deb address operand specifies the address of the data 
control block for an opened sequential data set. 

REWIND 

requests that the system position the tape at the load 
point regardless of the direction of processing. 

LEAVE 

requests that the system position the tape at the logical 
end of the data set on that volume; this option causes the 
tape to be positioned at a point after the tapemark that 
follows the trailer labels. Note that multiple tape units 
must be available to achieve this positioning. If only one 
tape unit is available^ its volume is rewound and unloaded. 

Note: If an FEOV macro is issued for a multivolume data 
set with spanned records that is being read using QSAM, 
errors may occur when the next GET macro is issued 
following an FEOV macro if the first segment on the new 
volume is not the first segment of a record. The errors 
include duplicate records^ program checks in the user 
program^ and invalid input from the variable spanned data 
set. 

The FEOV macro should not be used within the error analysis 
routine (SYNAD). 
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The FIND macro instruction causes the system to use the address 
of the first block of a specified partitioned data set member as 
the starting point for the next READ macro instruction for the 
same data set. All previous input and output operations that 
specified the same data control block must have been tested for 
completion before the FIND macro instruction is issued. 

The FIND macro is written* 



FIND 



deb address 

yCnging a«rfdregg>Dlrelai:lY9 ac<<Jr9Sg ligt»c> 



deb address — RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened partitioned data set being 
processed. 

name address — RX-Type Address, (2-12), or (0) 

The name address operand specifies the address of an 8-byte 
field that contains the data set member name. The name 
must start in the first byte and be padded on the right (if 
necessary) to complete the 8 bytes. 

D 

Specifies that only a member name has been supplied, and 
the access method must search the directory of the data set 
indicated in the data control block to find the location of 
the member. 

relative address list — RX-Type Address, (2-12), or (0) 

The relative address list operand specifies the address of 
the area that contains the relative address (TTRK) for the 
beginning of a data set member. The relative address can 
be a list entry completed by using a BLDL macro instruction 
for the data set being processed, or the relative address 
can be supplied by the problem program. 

C 

specifies that a relative address has been supplied, and no 
directory search is required. The relative address 
supplied is used directly by the access method for the next 
input operation. 

Note: When using the FIND macro, the DCBRELAD address in 
the DCB is updated. The FIND macro should not be used 
after NRITE and STON processing without first closing the 
data set and reopening it for INPUT processing. 



COMPLETION CODES 

For relative address list » C, when the system returns control to 

the problem program, the low-order byte of register 15 contains 

the following return code; the 3 high-order bytes of register 15 
are set to 0. 

rglativQ ad<rfrggs list/ C 

00 — At all times. If the relative address is in error, 
execution of the next CHECK macro instruction causes 
control to be passed to the error analysis (SYNAD) 
routine. 
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For name address * D» when the system returns control to the 
problem program^ the low-order byte of register 15 contains a 
return code and the low-order byte of register 0 contains a 
reason code. The 3 high-order bytes of these two registers are 
set to 0. 



Return 
Code (15) 

00 (X»00») 

04 (X»04») 

08 (X»08«) 

08 (X»08') 
08 (X*08*) 



Reason 
Code (0) 

00 (X»00«) 

00 (X'OO*) 

00 (X'OO*) 

04 (X»04«) 
08 (X<08*) 



Meaning 

Successful execution. 
Name not found. 

Permanent I/O error during directory 
search. 

Insufficient virtual storage available. 
Invalid DEB. (Not in key 0 through 7.) 



Macro Instruction Descriptions 95 



FREEBUF 

FREEBUP— RE TURN A BUPPER TO A POOL TBDAM. BISAM. BPAM. ANP BSAMl 

The FREEBUF macro instruction causes the system to return a 
buffer to the buffer pool assigned to the specified data control 
block. The buffer must have been acquired using a GETBUF macro 
instruction. 

The FREEBUF macro is writtem 



t svmbol l 



FREEBUF 



deb addresa 



deb address — RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for an opened data set to which the buffer 
pool has been assigned. 

rgqjgtet — (2-12) 

The register operand specifies one of registers 2 through 
12 that contains the address of the buffer being returned 
to the buffer pool. 
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FREEDBUP— R ETURN A DYNAMICALLY OBTAINED BUFFER fBDAM AND BlSAMl 

The FREEDBUF macro instruction causes the system to return a 
buffer to the buffer pool assigned to the specified data control 
block. The buffer must have been acquired through dynamic 
buffering; that is; by coding *S* for the area address operand 
in the associated READ macro instruction. 

Note: A buffer acquired dynamically can also be released by a 
NRITE macro instruction; see the description of the WRITE macro 
instruction for BDAM or BISAM. 

The FREEDBUF macro is written t 



E^vmbol 3 


FREEDBUF 


S^ecb address 












rcicb address 



decb address — RX-Type Address, (2-12), or (0) 

The decb address operand specifies the address of the data 
event control block (DECB) used or created by the READ 
macro instruction that acquired the buffer dynamically. 

K 

specifies that BISAM is being used. 

D 

specifies that BDAM is being used. 

deb address — RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened data set being processed. 
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FREEPOOL— R ELEASE A BUFFER POOL fBDAM. BISAM. BPAM. BSAM. QISAM. AND QSAM1 



The FREEPOOL macro instruction causes an area of storage^ 
previously acquired for a buffer pool for a specified data 
control block* to be released. The area must have been acquired 
either automatically (except when dynamic buffer control is 
used) or by the execution of a GETPOOL macro instruction. For 
queued access methods* the FREEPOOL macro instruction must not 
be issued until after a CLOSE macro instruction has been issued 
for all the data control blocks using the buffer pool. For 
basic access methods* the FREEPOOL macro instruction can be 
issued as soon as the buffers are no longer required. A buffer 
pool should be released only once* regardless of the number of 
data control blocks sharing the buffer pool . 

The FREEPOOL macro is written t 



CsmhAll FREEPOOL deb address 



deb address — RX-Type Address* (2-12)* or (1) 

The deb address operand specifies the address of a data 
control block to which the buffer pool has been assigned. 
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SET— QgTAIN NEXT LQglCAL RECPRP (QI$AM? 

The GET macro instruction causes the system to retrieve the next 
record. Control is not returned to the problem program until 
the record is available. 

The GET macro is written: 





GET 


deb address 






C » a re?i address! 



deb address — RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened input data set being 
retrieved. 

area address — RX-Type Address, (2-12), or (0) 

The area address operand specifies the storage address into 
which the system is to move the record (move mode only). 
Either the move or locate mode can be used with QISAM, but 
they must not be mixed within the specified data control 
block. The following describes operations for move and 
locate modes: 

Locate Mode: If locate mode has been specified in the data 
control block, the area address operand must be omitted. 
The system returns the address of the buffer segment 
containing the record in register 1. 

Move Node: If move mode has been specified in the data 
control block, the area address operand must specify the 
address in the problem program into which the system will 
move the record. If the area address operand is omitted, 
the system assumes that register 0 contains the area 
address. Mhen control is returned to the problem program, 
register 0 contains the area address, and register 1 
contains the address of the data control block. 

Notes: 

1. The end-of-data-set (EODAD) routine is given control if the 
end of the data set is reached; the data set may be closed 
if processing is completed, or an ESETL macro must be issued 
before a SETL macro to continue further input processing. 

2. The error analysis (SYNAD) routine is given control if the 
input operation could not be completed successfully. The 
contents of the general registers when control is given to 
the SYNAD exit routine are described in Appendix A, "Status 
Information Following an Input/Output Operation" on 

page 192. 

3. When the key of an unblocked record is retrieved with the 
data, the address of the key is returned as follows (see the 
SETL macro instruction): 

Locate Node: The address of the key is returned in register 
0. 

Move Mode: The key appears in front of the record in your 
buffer area. 

4. If a GET macro instruction is issued for a data set and the 
previous request issued for the same data set was an OPEN, 
ESETL, or unsuccessful SETL (no record found), a SETL B (key 
and data) is invoked automatically, and the first record in 
the data set is returned. 
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GgT— OBTAIN NEXT LOGICAL RECORD (QSAMl 

The GET macro instruction causes the system to retrieve the next 
record. Various modes are available and are specified in the 
DCS macro instruction. In the locate mode, the GET macro 
instruction locates the next sequential record or record segment 
to be processed. The system returns the address of the record 
in register 1 and places the length of the record or segment in 
the logical record length (DCBLRECL) field of the data control 
block. The DCBLRECL field is not changed when GET is used in 
XLRI processing. The user can process the record within the 
input buffer or move the record to a work area. 

In move mode# the GET macro instruction moves the next 
sequential record to the user's work area. This work area must 
be large enough to contain the largest logical record of the 
data set and its record-descriptor word (variable-length 
records). The system returns the address of the work area in 
register 1. The record length is placed in the DCBLRECL field. 
Move mode can be used only with simple buffering. 

In data mode/ which is available only for variable-length 
spanned records* the GET macro instruction moves only the data 
portion of the next sequential record to the user's work area. 
The TYPE-P operand cannot be used with data mode. 

If the ISCII/ASCII translation routines are included when the 
operating system is generated/ translation can be requested by 
coding LABEL=:(/AL) or C/AUL) in the DD statement/ or it can be 
requested by coding OPTCD=:Q in the DCB macro instruction or DCB 
subparameter of the DD statement. Hhen translation is 
requested/ all QSAM records whose record format (RECFM operand) 
is F/ FB/ D/ DS/ DB/ DBS/ or U are automatically translated from 
ISCII/ASCII code to EBCDIC code as soon as the input buffer is 
full. For translation to occur correctly/ all input data must 
be in ISCII/ASCII code. 

The GET macro is written: 





GET 


{d<?b addresalpdqb address^ 




lf9r^9 address! 
t,TYPE=Pl 



deb address — RX-Type Address, (2-12)/ or (1) 

The deb address operand specifies the address of the data 
control block for the opened input data set being 
retrieved. 

Ddab address — RX-Type Address, (2-12)/ or (1) 

The pdab address operand specifies the address of the 
parallel data access block for the opened input data sets 
from which a record is to be retrieved. Hhen pdab address 
is used/ TYPE=P must be coded. 

area address — RX-Type Address/ (2-12)/ or (0) 

The area address operand specifies the address of an area 
into which the system is to move the record (move or data 
mode). The move/ locate/ or data mode can be used with 
QSAM/ but must not be mixed within the specified data 
control block. If the area address operand is omitted in 
the move or data mode/ the system assumes that register 0 
contains the area address. The following describes the 
operation of the three modes* 

Locate Mode; If locate mode has been specified in the data 
control block/ the area address operand must be omitted. 
The system returns the address of the beginning buffer 
segment containing the record in register 1. If the data 
set is open for ROBACK/ register 1 will point to the 
beginning of the record. 
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When retrieving variable-length spanned records^ and the 
logical record interface (LRl) or extended logical record 
interface (XLRI) is not used» the records are obtained one 
segment at a time. The problem program must retrieve 
additional segments by issuing subsequent GET macro 
instructions/ except when a logical record interface is 
requested (by specifying BFTEK=A in the DCB macro 
instruction or by issuing a BUILDRCD macro instruction^ or 
by specifying DCBLRECL=OK or nnnnnK in the DCB macro). In 
this case, the control program retrieves all record 
segments and assembles the segments into a complete logical 
record. The system returns the address of this record area 
in register 1 . 

Nhen the maximum logical record length is greater than 
32756 bytes/ LRECL=X must be specified in the data control 
blocks and the problem program must assemble the segments 
into a complete logical record. LRECL=X and/or segment 
mode processing is invalid for ISO/ANSI/FIPS spanned 
records, RECFM=DS or RECFM=DBS. 

Move Mode: If move mode has been specified in the data 
control block, the area address operand specifies the 
beginning address of an area in the problem program into 
which the system will move the record. If the data set is 
open for RDBACK, the area address operand specifies the 
ending address of an area in the problem program. 

If move mode has been specified in the data control block, 
do not code BFTEK=A. 

For variable-length spanned records, the system constructs 
the record-descriptor word in the first four bytes of the 
area and assembles one or more segments into the data 
portion of the logical record area; the segment descriptor 
words are removed. When XLRI mode is used, the record 
descriptor word (RDM) in the record area is a fullword 
value . 

Data Mode: If data mode has been specified in the data 
control block (data mode can be specified for 
variable-length spanned records only), the area address 
operand specifies the address of the area in the problem 
program into which the system will move the data portion of 
the logical record; a record-descriptor word is not 
constructed when data mode is used. The TYPE=P operand 
cannot be used with data mode. 

Extended Logical Record Interface (XLRI): When the GET 
macro is used in XLRI mode, the address returned in 
register 1 points to a fullword record length value. The 
three low-order bytes of the fullword indicate the length 
of the complete logical record plus four bytes for the 
fullword. 

XLRI mode requires a record area to assemble a complete 
logical record from the segments that are read. 

If a record area is not automatically obtained by OPEN 
processing, you can construct a record by using the 
BUILDRCD macro before issuing the OPEN. The DCB LRECL 
field indicates the length of the area in K units (.102^ 
bytes) required to contain the longest logical record of 
the data set. 

Note: If spanned records extend across volumes, errors may 
occur when using the GET macro if a volume that begins with 
a middle or last record segment is mounted first, or if an 
FEOV macro is issued followed by a GET macro. QSAM cannot 
begin reading from the middle of the record. (This applies 
to move mode, data mode, and locate mode if logical record 
interface is specified.) 
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GET 



TYPE=P — Coded as shown 

The TYPE=P and PDAB address operands are used to retrieve a 
record from a queue of input data sets that have been 
opened. The open and close routines add and delete DCB 
addresses in the queue. The DCB from which a record is 
retrieved can be located from information in the PDAB. For 
this purpose/ the formatting macro# PDABD^ should be used. 



GET ROUTINE EXITS 

The end'of-data'-set (EODAD) routine is given control if the end 
of the data set is reached; the data set must be closed. 
Issuing a GET macro instruction in the EODAD routine results in 
abnormal termination of the task. 

The error analysis CSYNAD) routine is given control if the input 
operation could not be completed successfully. The contents of 
the general registers when control is given to the SYNAD exit 
routine are described in Appendix A» "Status Information 
Following an Input/Output Operation** on page 192. 
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GETBUF 



GETBUF— OBT AIN A BUFFER (BDAM. BISAM. BPAM. AND BSAM1 

The GETBUF macro instruction causes the control program to 
obtain a buffer from the buffer pool assigned to the specified 
data control block and to return the address of the buffer in a 
designated register. The BUFCB field of the data control block 
must contain the address of the buffer pool control block when 
the GETBUF macro instruction is issued. The system returns 
control to the instruction following the GETBUF macro 
instruction. The buffer obtained must be returned to the buffer 
pool using a FREEBUF macro instruction. 

The GETBUF macro is written: 





GETBUF 


d<?b address 






• reaister 



deb address — RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block that contains the buffer pool control block 
address. 

reaister — (2-12) 

The register operand specifies one of the registers 2 
through 12 in which the system is to place the address of 
the buffer obtained from the buffer pool. If no buffer is 
available, the contents of the designated register are set 
to 0. 
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GETPOOL 



GETPQQL— BUILD A BUFFER POOL (BDAM. BISAM, BPAM. BSAN. QISAM. AND QSAM1 

The GETPOOL macro instruction causes a buffer pool to be 
constructed in a storage area acquired by the system. The 
system places the address of the buffer pool control block in 
the BUFCB field of the data control block. The GETPOOL macro 
instruction must be issued either before an OPEN macro 
instruction is issued or during the data control block exit 
routine for the specified data control block. 

The GETPOOL macro is written > 



GETPOOL 



c»gb address 

>Cntimbgr of bMff9rg>bMffgr length UP)} 



deb address — RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block to which the buffer pool is assigned. Only 
one buffer pool can be assigned to a data control block. 

number of buffers — symbol, decimal digit, absexp, or (2-12) 
The number-of-buf f ers operand specifies the number of 
buffers in the buffer pool to a maximum of 255. 

buffer length — symbol, decimal digit, absexp, or (2-12) 

The buffer length operand specifies the length, in bytes, 
or each buffer in the buffer pool. The value specified for 
the buffer length must be a doubleword multiple; otherwise, 
the system rounds the value specified to the next higher 
doubleword multiple. The maximum length that can be 
specified is 32760 bytes. For QSAM, the buffer length must 
be at least as large as the value specified in the block 
size (DCBfiLKSI) field in the data control block. 

(0) — Coded as shown 

The number of buffers and buffer length can be specified in 
general register 0. If (0) is coded, register 0 must 
contain the binary values for the number of buffers and 
buffer length as shown in the following illustration: 



Register 0 



Number of Buffers 


Buffer Length 


0 




IS 


16 




31 



The following illustration shows the format of the buffer pool. 
The buffer pool and the associated storage area are released by 
issuing a FREEPOOL macro instruction after issuing a CLOSE macro 
instruction for the data set indicated in the specified data 
control block. 
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GETPOOL 



Area 

Address 



BUFAD 

Address of First 

Available 

Buffer 



Reserved 

for 

Flags 



BUFNO 

Number 
of 

Buffers 



BUFL 

Length 
of Each 
Buffer 



Buffer 



Buffer 



-Buffer Pool Control Block- 
(8 bytes) 



-Buffer Length—* 



^Buffer Length—* 



.Area Length. 



Area Length* (Buffer Length) x (Number of Buffers) *6 
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MSGOISP 

MSGDISP— ME SSAGE DISPLAY (DRIVE READYI 



The MSGDISP macro is used to load the message display on an IBM 
3^80 Magnetic Tape Subsystem. Functions for the display 
ncludet 

Displaying a ready message 

Mount volume^ 

Demount volume^ 

Reset display^ 

Verify volume^ 

Generalized display^ 

^ For an explanation of these MSGDISP macro functions^ see 

§Ystgffl-Pata A<rfininigtration» 



MSGOI$p— PISPUAYINQ A REAPY Mg$?Age 

The MSGDISP macro is written t 





MSGDISP 


RDY 




,DCB=9ddr 

t,TXTsC»maa±2i±Madd£J3 







RDY 

specifies that text supplied in the TXT parameter will be 
displayed in positions 2 through 7 of the display while the 
data set is open. The display will be steady (not 
flashing) and will be enclosed in parentheses. The display 
will also be written to the tape pool console (routing code 
5, descriptor code 7). 

DCB=aiidE 

specifies the address of a DCB opened to a data set on the 
mounted volume. If multiple devices are allocated^ the 
message display will be directed to the one containing the 
volume currently in use. 

Note: If multiple devices or multiple volumes are 
allocated/ you may update a message display after an 
end-of-volume condition by using the EOV exit specified in 
a DCB exit list. In the case of a concatenated data set 
with unlike characteristics* the open DCB exit may be used 
to update the display. 

addr — RX-Type address* A-Type address* or (2-12) 

specifies an in-storage address of the opened DCB. 

TXT={'jTisg±K±Majddi:> 

specifies as many as six characters to be displayed in 
positions 2 through 7. If TXT is not specified* blanks 
will be displayed. 

'msqtxt' 

specifies the 1- to 6-character text. The text must be 
enclosed in apostrophes. 

addr — RX-Type address* A-Type address* or (2-12) 

specifies an in-storage address of an area containing 
the text to be displayed. 
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H$QPI$P— LI$T FORM 

The list form of the MSGDISP macro is written: 



MSGDZSP 





MSGDISP 


IRDY3 










>MF=L 






I f TXT=C 'msfllisi' ladslE> 1 



RDY 

specifies that text supplied in the TXT parameter will be 
displayed in positions Z through 7 while a data set is 
open. The display will be steady (not flashing) and will 
be enclosed in parentheses. The display will also be 
written to the tape pool console (routing code 3/ 
descriptor code 7). 

specifies the address of a DCB opened to a data set on the 
mounted volume. If multiple devices are allocated^ the 
message display will be directed to the one containing the 
volume currently in use. 

Note: If multiple devices or multiple volumes are 
allocated, you may update a message display after an 
end-of-volume condition by using the EOV exit specified in 
a DCB exit list. In the case of a concatenated data set 
with unlike characteristics^ the open DCB exit may be used 
to update the display. 

addr— 'A-Tvpe address 

specifies an in~storage address of the opened DCB. 



specifies the list form of MSGDISP. This generates a 
parameter list that contains no executable instructions. 
The list can be used as input to and can be modified by the 
execute form. 



TXT={' msQtxt M addr :> 

specifies as many as six characters to be displayed in 
positions 2 through 7. If TXT is not specified* blanks 
will be displayed. 

specifies the 1- to 6-character text. The text must be 
enclosed in apostrophes. 

^ddr— "A-Tvpe address 

specifies an in-storage address of an area containing 
the text to be displayed. 
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MS6DZSP 

MSSDISP— EXECUTE FORM 

The execute form of the MSGDISP macro is written t 





MSGDISP 


RDY 




C ,TXT=C^fmafl±2st' lad!ic> 3 



ROY 

specifies that text supplied in the TXT parameter will be 
displayed in positions 2 through 7 while a data set is 
open. The display will be steady (not flashing) and will 
be enclosed in parentheses. The display will also be 
written to the tape pool console (routing code 
descriptor code 7). 

specifies the address of a DCB opened to a data set on the 
mounted volume. If multiple devices are allocated/ the 
message display will be directed to the one containing the 
volume currently in use. 

Note: If multiple devices or multiple volumes are 
allocated/ you may update a message display after an 
end-of-volume condition by using the EOV exit specified in 
a DCB exit list. In the case of a concatenated data set 
with unlike characteristics^ the open DCB exit may be used 
to update the display. 

Ssisii: — RX-Type address^ A-Type address^ or (2-12) 

specifies an in-storage address of the opened DCB. 

MF=(E,addE) 

specifies that the execute form of MSGDISP and an existing 
parameter list will be used. 

addr — RX-Type address, (1), or (2-12) 

specifies an in-storage address of the parameter list. 

TXT=C'maa±2iiMad<iE> 

specifies as many as six characters to be displayed in 
positions 2 through 7. If TXT is not specified, blanks 
will be displayed. 



specifies the 1- to 6-character text. The text must be 
enclosed in apostrophes. 

SLsisiL — RX-Type address, A-Type address, or (2-12) 

specifies an in-storage address of an area containing 
the text to be displayed. 
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MSGDISP 



COMPLETION CODES 

When the system returns control to your problem program^ the 
low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason code: 



Return 
Code (15) 




Reason 
code (0) 


Meaning 


00 


(X»Op« 


) 






Successful completion 


04 


(X»04» 


) 






Device does not support MSGDISP 


08 


(X»08« 


) 


01 


(X'Ol") 


Invalid parameter 


08 


(X»08» 


) 


02 


(X"02») 


Invalid DOB or DEBCHK error 


08 


(X»08* 


) 


03 


<X'03') 


Environmental error 


08 


(X»08» 


) 


04 


(X«04») 


Authorization violation 


08 


(X»08' 


) 


05 


(X'05») 


Invalid UCB 


08 


(X'08» 


) 


06 


(X'06') 


Invalid request 


08 


(X»08« 


) 


11 


(X'0B«) 


Unsuccessful ESTAE macro call 


08 


(X«08» 


) 


12 


(x'ocr) 


Unsuccessful GETMAIN request 


12 


(X«OC» 


) 






Input/output error (I/O Supervisor 
posted the request as an error) 



Note* An I/O error occurs for load 
display if the drive display has a 
hardware failure. 
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NOTE— PROVIDE RELATIVE POSITION fBPAM AND BSAM— TAPg AND DIRECT ACCESS ONLY) 



The NOTE macro instruction causes the system to return the 
position of the last block read from or written into a data set. 
All input and output operations using the same data control 
block must be tested for completion before the NOTE macro 
instruction is issued. 

The capability of using the NOTE macro instruction is 
automatically provided when a partitioned data set is used 
(DSORG^PO or POU), but« when a sequential data set (BSAM) is 
used^ the use of NOTE/POINT macro instructions must be indicated 
in the MACRF operand of the DCB macro instruction. 

The NOTE macro is written t 





NOTE 


deb address 




K>TYPE={ABS|££L>] 



deb address — RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block opened for the partitioned or sequential data 
set being processed. 

TYPEs{ABS|fi£L} 
ABS 

specifies that, after NOTE executes successfully 
(contents of register 15 is 0), register 0 contains 
the physical block identifier for the next data block 
waiting for transfer between main storage and the 
control unit buffer, and register 1 contains the 
physical block identifier of the next data block 
waiting for transfer between the control unit buffer 
and the tape drive. 

If you subtract the low-order 20 bits of register 1 
from the low-order 20 bits of register 0, the 
remainder is the number of data blocks left in the 
control unit buffer. A negative remainder means the 
buffer is in read mode, and a positive remainder means 
the buffer is in either write or read-backward mode. 
A zero remainder means that no data is buffered. 

BEL 

causes the system to return the relative position of 
the last block read from or written into a data set. 
The position, in terms of the current volume, is 
returned in register 1 as follows < 

Magnetic Tape 

The block number is in binary, right-adjusted in 
register 1 with high-order bits set to zero. Do not 
use a NOTE macro instruction for tapes without 
standard labels when: 

• The data set is opened for RD6ACK (specified in 
the OPEN macro instruction) or 

• The DISP parameter of the DD statement for the 
data set specifies DISP^MOD. 
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NOTE 



Direct Access Device 
TTRz format* where: 

TT is a 2'-byte relative track number. 

R is a 1-byte block (record) number on the track 
indicated by TT. 

z is a byte set to zero. 

The NOTE macro instruction cannot be used for SYSOUT data sets. 

Note: Nhen a direct access device is being used* the amount of 
remaining space on the track is returned in register 0 if a NOTE 
macro instruction follows a MRITE macro instruction; if a NOTE 
macro instruction follows a READ or POINT macro instruction, the 
track capacity of the direct access device is returned in 
register 0. 



COMPLETION CODES 

When the system returns control to your problem program and you 
have specified the ABS parameter* the low-order byte of register 
15 contains a return code; the low-order byte of register 0 
contains a reason code: 



Return Reason 

Code (15) Code (0) Meaning 



00 


(X»00») 








Successful completion. 


04 


(X«04«) 








Device does not support block 
identifier. 


08 


(X»08«) 


01 


(X»01« 


) 


Incorrect parameter. 


08 


(X«08») 


02 


(X»02» 


) 


Incorrect DCB or a DEBCHK error. 


08 


(X'08*) 


03 


(X»03» 


) 


Environmental error. 


08 


(X«08M 


11 


(X»OB» 


) 


Unsuccessful call to ESTAE macro. 


08 


(X'08») 


12 


(X»OC« 


) 


Unsuccessful GETMAIN request. 


12 


(X»OC») 








Input/output error. 
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OPEN 



OPEN— LOGICALLY CONNECT A DATA SET CBDAM. BISAM, BPAM. BSAM. QISAM. AND QSAMI 

The OPEN macro instruction causes the specified data control 
block(s) to be completed and the data set(s) identified in the 
data control blockCs) to be prepared for processing. Input 
labels are analyzed and output labels are created. Control is 
given to exit routines as specified in the data control block 
exit list. The processing method (option 1) is designated to 
provide correct volume positioning for the data set and define 
the processing mode (INPUT, OUTPUT, and so forth) for the data 
set(s). Final volume positioning (when volume switching occurs) 
can be specified (option 2) to override the positioning implied 
by the DD statement DISP parameter. Option 2 applies only to 
volumes in a multivolume data set other than the last volume. 
Any number of data control block addresses and associated 
options may be specified in the OPEN macro instruction. 

The maximum number of DCBs that can be concurrently open to one 
unit is 127. 

If associated data sets for a 3525 card punch are being opened, 
all associated data sets must be open before an I/O operation is 
initiated for any of the data sets. For a description of 
associated data sets, see OS and OS/VS Programming Support for 

thg IPli ?505 Card Rgader and IBM 3525 C^rd PMPch. 

To support DEB validity checking, an OPEN macro instruction must 
be issued for every data extent block (DEB) created. 

The standard form of the OPEN macro instruction is written as 
follows (the list and execute forms are shown following the 
description of the standard form) > 





OPEN 


(deb 9ddrg?s»CCopti9ns)l»««» ) 




,t TYPES J 3 
,[M0DE=2^i311 



deb address — A-Type Address or (2-12) 

The deb address operand(s) specifies the address of the 
data control block(s) for the data set(s) to be prepared 
for processing. 

QPtigPg 

The options operands shown in the following illustration 
indicate the volume positioning available based on the 
device type and access method being used. If option 1 is 
omitted, INPUT is assumed. If option 2 is omitted, DISP is 
assumed. Option 1 must be coded if option 2 is coded. 
Option 2 is ignored for SYSIN and SYSOUT data sets. 
Options 1 and 2 are ignored for BISAM and QISAM (in the 
scan mode), and the data control block indicates the 
operation. OUTPUT or OUTIN must be specified when creating 
a data set. 
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OPEN 



Access 
Method 



QSAM 



BSAM 



QISAM 
Load Node 

BPAM, 
BDAM 



Magnetic Tape 

Option 1 Option 2 

I INPUT ] REREAD] 

[EXTEND] C» LEAVE ] 

[OUTPUT] t. DISP 1 
[RDBACK] 



[EXTEND] 
[OUTINX] 
[OUTPUT] 
[INOUT ] 
[OUTIN ] 
[RDBACK] 



[» REREAD] 
[, LEAVE ] 

[»m£ 1 



DEVICE TYPE 
Direct Access 
Option 1 Option 2 



[INPUT ] 
[EXTEND] 
[OUTPUT] 
[UPDAT] 

[INPUT 3 
[EXTEND] 
[OUTINX] 
[OUTPUT] 
[INOUT ] 
[OUTIN ] 
[UPDAT ] 

[OUTPUT] 
[EXTEND] 

[INPUT ] 
[OUTPUT! 
[UPDAT 3 



[, REREAD] 
[> LEAVE ] 
[fi2ISe 3 



[» REREAD] 
[» LEAVE ] 
ifJilSB 3 



Other Types 

Option 1 Option. 2 

[INPUT 3 — 
[EXTEND 3 
[OUTPUT 3 



[ JNPUT 3 
[OUTPUT] 
[OUTPUT] 
[OUTPUT] 



The following describes the options shown in the preceding 
illustration. All option operands are coded as shown. 

Option 1 Meaning 

EXTEND^ The data set is treated as an OUTPUT data set, except 
that records will be added to the end of the data set 
regardless of what was specified on the DISP parameter 
of the DD statement. 

INPUT Input data set. 

INOUT^ The data set is first used for input and, without 

reopening, is used as an output data set. The data 
set is processed as INPUT if it is a SYSIN data set or 
if LABEL = C,IN) is specified in the DD statement. 

OUTPUT Output data set (for BDAM/ OUTPUT is equivalent to 
UPDAT). 

OUTIN^ The data set is first used for output and, without 

reopening, is used as an input data set. The data set 
is processed as OUTPUT if it is a SYSOUT data set or 
if LABEL=( , , ,OUT) is specified in the DD statement. 

OUTZNX^ The data set is treated as an OUTIN data set, except 
that records will be added to the end of the data set 
regardless of what was specified on the DISP parameter 
of the DD statement. 

RDBACK Input data set, positioned to read backward. 

Note: Variable-length records cannot be read 
backward. 

UPDAT Data set to be updated in place or, for BDAM, blocks 
are to be updated or added. 



These options are not allowed for ISO/ANSI/FIPS Version 3 
tape processing. 
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OPEN 



Option 2 Meaning 

LEAVE Positions the current tape volume to the logical end 
of the data set when volume switching occurs. If 
processing was forwards the volume is positioned to 
the end of the data set; if processing was backward 
(RDBACK)» the volume is positioned to the beginning of 
the data set. 

REREAD Positions the current tape volume to reprocess the 

data set when volume switching occurs. If processing 
was forwards the volume is positioned to the beginning 
of the data set; if processing was backward (RDBACK)> 
the volume is positioned to the end of the data set. 



DXSP Specifies that a tape volume is to be disposed of in 

the manner implied by the DD statement associated with 
the data set. Direct access volume positioning and 
disposition are not affected by this parameter of the 
OPEN macro instruction. There are several 
dispositions that can be specified in the DISP 
parameter of the DD statement; DISP can be PASS/ 
DELETE, KEEP, CATLG, or UNCATLG. This option has 
significance at the time an end-of-volume condition is 
encountered only when DISP is PASS. The end-of-volume 
condition may result from the issuance of an FEOV 
macro instruction or may be the result of reaching the 
end of a volume. 

If DISP is PASS in the DD statement, the tape will be 
spaced forward to the end of the data set on the 
current volume. 



If any DISP option is coded in the DD statement, 
(except when DISP is PASS), the resultant action at 
the time an end-of-volume condition arises depends on 
(1) how many tape units are allocated to the data set 
and (2) how many volumes are specified for the data 
set in the DD statement. This is determined by the 
UNIT and VOLUME parameters of the DD statement 
associated with the data set. If the number of 
volumes is greater than the number of units allocated, 
the current volume will be rewound and unloaded. If 
the number of volumes is less than or equal to the 
number of units# the current volume is merely rewound. 

Note: When the DELETE option is specified, the system waits for ' 
the completion of the rewind operation before it continues 
processing subsequent reels of tape. 

The LEAVE and REREAD options are meaningless except for magnetic 
tape and CLOSE TYPE=T. Any other options specified for CLOSE 
TYPE=T besides LEAVE and REREAD will be treated as LEAVE during 
execution. 

TYPEsJ 

You can code OPEN TYPEsJ to specify that, for each data 
control block referred to, you have supplied a job file 
control block (JFCB) to be used during initialization. A 
JFCB is an internal representation of information in a DO 
statement. This option, because it is used in conjunction 
with modifying a JFCB, should be used only by the system 
programmer or only under the system programmer's 
supervision. M00Es31 is not allowed when TYPE=J is 
specified. 

Mhen you specify TYPE=J, you must also supply a DD 
statement. The amount of information in the DD statement 
is subject to discretion, but you must specify the device 
allocation and a ddname that corresponds to the associated 
data control block DCBDDNAN field. 



For more detailed information on using TYPEsJ, see 

Svstem-Data Administration. 



114 MVS/XA Data Administration* Macro Instruction Reference 



OPEN 



H0DE=2^|31 

You can code OPEN N0DE=31 to specify a long form parameter 
list that will be able to contain 31-bit addresses. 
I10DE=31 is not permitted if TYPE=J is specified. You must 
be operating in 31-bit addressing mode in order to use the 
31-bit addresses in the long form parameter list. The 
defaults H0DE=24» will specify a standard form parameter 
list with 24-bit addresses. If TYPE=J is specified/ you 
must use the standard form parameter list. 

The standard form parameter list is <* bytes per entry. The 
standard form parameter list must reside below 16M> but the 
calling program may be above 16M. It is assumed that all 
ACBs and DCBs are below 16M. 

The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte^ zeros in the next three bytes^ and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
^-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs> all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
IEC190I message will be issued and the data set will not be 
opened. The program will not be abnormally terminated 
unless an attempt is made to read to or write from the data 
set. 

Note: It is up to you to keep the mode specified in the 
. NFsL and NF^E versions of the OPEN and CLOSE macros 

consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 

Note: After the OPEN macro instruction has been executed, bit 3 
of the DCBOFLGS field in the data control block is set to 1 if 
the data control block has been opened successfully, but is set 
to 0 if the data control block has not been opened successfully. 

Note: To use the OPEN macro instruction supplied in the MVS/XA 
macro library on MVS/370, use the SPLEVEL macro instruction. 
You must use the SPLEVEL macro instruction to ensure that the 
NVS/XA version of the OPEN macro instruction executes 
successfully on MVS/370 DFP. For information on how to use the 
SPLEVEL macro, see System Mggrgg an«rf F^giii-tieg^ Volume 2. 
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OPEN 



The following errors cause the results indicated < 



Error 


Result 


Attempting to open a data control 
block that is already open. 


No action. 


Attempting to open a data control 
block when the deb address 
operand does not specify the 
address of a data control block. 


Unpredictable. 


Attempting to open a DCB for a 
printer with the UCS feature and 
an error occurred when attempting 
to block or unblock data checks 
(specified by the presence or 
absence of OPTCD^U in the DCB 
macro) ; 


Task abnormally 
terminated. 


Attempting to open a data control 
block when a corresponding DD 
statement has not been provided. 


A "DD STATEMENT MISSING" 
message is issued. An 
attempt to use the data 
set causes unpredictable 
results. 



The last of these errors can be detected by testing bit 3 of the 
DCBOFLGS field in the data control block. Bit 3 is set to 0 in 
the case of an error and can be tested by the sequence: 

TM DCBOFLGS, X'lO* 

BZ ERRORRTN (Branch to user's error routine) 

Executing the two instructions shown above requires writing a 
DCBD macro instruction in the program, and a base register must 
be defined with a USING statement before the instructions are 
executed. 
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OPEN 



OPEN— LIgT FORM 

The list form of the OPEN macro instruction is used to construct 
a data management parameter list. Any number of operands (data 
control block addresses and associated options) can be 
specified. 

The list consists of a one'-word entry for each DCB in the 
parameter list; the high-order byte is used for the options and 
the three low-order bytes are used for the DCB address. The end 
of the list is indicated by a 1 in the high-order bit of the 
last entry's option byte. The length of a list generated by a 
list form instruction must be equal to the maximum length list 
required by any execute form instruction that refers to the same 
list. A maximum length list can be constructed by one of two 
methods: 

• Code a list-form instruction with the maximum number of 
parameters that are required by an execute form instruction 
that refers to the list. 

• Code a maximum length list by using commas in a list-form 
instruction to acquire a list of the appropriate size. For 
example^ coding OPEN #MF-L would provide a list 
of five fullwords (five deb addresses and five options). 

Entries at the end of the list that are not referenced by the 
execute-form instruction are assumed to have been filled in when 
the list was constructed or by a previous execute-form 
instruction. Before using the execute-form instruction^ you may 
shorten the list by placing a 1 in the high-order bit of the 
last DCB entry to be processed. 

A zeroed work area on a fullword boundary is equivalent to OPEN 
(, (INPUT, DISP), .. .),MF=L and can be used in place of a list-form 
instruction. The high-order bit of the last DCB entry must 
contain a 1 before this list can be used with the execute-form 
instruction . 

A parameter list constructed by an OPEN, list-form» macro 
instruction can be referred to by either an OPEN or CLOSE 
execute form instruction. 

The description of the standard form of the OPEN macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
which operands are completely optional and those required in at 
least one of the pair of list and execute forms. The format 
description below indicates the optional and required operands 
in the list form only. 

The list form of the OPEN macro is written* 





OPEN 


CI deb tddresslrnQptiQnsn,,.. ) 






,MF=L 






I, TYPES J 1 






UH0DES2&I31] 



dgb address — A-Type Address 

MF=L — Coded as shown 

The MFsL operand specifies that the OPEN macro instruction 
is used to create a data management parameter list that is 
referenced by an execute form instruction. 

TYPESJ 

You can code OPEN TYPE=J to specify that/ for each data 
control block referred to» you have supplied a job file 
control block (JFCB) to be used during initialization. A 
JFCB is an internal representation of information in a DD 
statement. This option, because it is used in conjunction 
with- modifying a JFCB, should be used only by the system 
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programmer or only under the system programmer's 
supervision. M00ES31 is not allowed when TYPE^J is 
specified. 

Hhen you specify TYPEsj, you must also supply a DD 
statement. The amount of information in the DD statement 
is subject to your discretion^ but you must specify the 
device allocation and a ddname that corresponds to the 
associated data control block DCBDDNAM field. 

For more detailed information on using TYPE=J, see 

§Yg-^gf!rPgta Adtninistration* 

M0DEs2j&|31 

You can code OPEN H0DEs3I to specify a long form parameter 
list that will be able to contain 31-bit addresses. 
M0DE=31 is not permitted if TYPE=J is specified. You must 
be operating in 31-bit addressing mode in order to use th« 
31-bit addresses in the long form parameter list. The 
defaults M00E=24» will specify a standard form parameter 
list with Z'i-bit addresses. If TYPE=J is specif ied» you 
must use the standard form parameter list. 

The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M» but the 
calling program may be above 16N. It is assumed that all 
ACBs and DCBs are below 16M. 

The long form parameter list can reside above or below 16(1. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
^-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
IEC190I message will be issued and the data set will not be 
opened. The program will not be abnormally terminated 
unless an attempt is made to read to or write from the data 
set. 

Note: It is up to you to keep the mode specified in the 
NFsL and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 
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OPEN— EXECVTE F9RH 

A remote data management parameter list is used in^ and can be 
modified by, the execute form of the OPEN macro instruction. 
The parameter list can be generated by the list form of either 
an OPEN or CLOSE macro instruction. 

The description of the standard form of the OPEN macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
which operands are totally optional and those required in at 
least one of the pair of list and execute forms. The format 
description below indicates the optional and required operands 
^ in the execute form only. 

The execute form of the OPEN macro is written* 





OPEN 


tddcb address]* [(options lit. . . )3 
.MF=(E.{data manaaement list addressUDi) 










[,TYPE=J] 






[»M0DE=^|31] 



dgb address — RX-Type Address or (2-12) 

MFs(E»{d9ta fnanaqement list addressUl)> 

This operand specifies that the execute form of the OPEN 
macro instruction is used^ and an existing data management 
parameter list (created by a list-form instruction) is 
used. The MPs operand is coded as follows: 

E — Coded as shown 

d^-^^ iffpngqemgn-t list address — RX-Type, (2-12), (l) 
TYPEsJ 

You can code OPEN TYPE=J to specify that, for each data 
control block referred to, you have supplied a iob file 
control block (JFCB) to be used during initialization. A 
JFCB is an internal representation of information in a DD 
statement. This option, because it is used in con:junction 
with modifying a JFCB, should be used only by the system 
programmer or only under the system programmer's 
supervision. M0DE=31 is not allowed when TYPEsJ is 
specified. 

Nhen you specify TYPE=J, you must also supply a DD 
statement. The amount of information in the DD statement 
is subject to your discretion, but you must specify the 
device allocation and a ddname that corresponds to the 
associated data control block DCBDDNAM field. 

For more detailed information on using TYPESJ, see 
Svstem-Pata Administratign. 

I10DES26131 

You can code OPEN H0DEs31 to specify a long form parameter 
list that will be able to contain 31-bit addresses. 
M0DES31 is not permitted if TYPE=J is specified. You must 
be operating in 31-bit addressing mode in order to use the 
31-bit addresses in the long form parameter list. The 
default, I10DES24, will specify a standard form parameter 
list with 24-bit addresses. If TYPEsJ is specified, you 
must use the standard form parameter list. 

The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M.. It is assumed that all 
ACBs and DCBs are below 16M. 

The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
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address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
4-byte field, the DCB must be below 16M. Except for VSAN 
or VTAM ACBsy all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
IEC190I message will be issued and the data set will not be 
opened. The program will not be abnormally terminated 
unless an attempt is made to read to or write from the data 
set. 

Notes It is up to you to keep the mode specified in the 
MpsL and MPsE versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 
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PDAB— CONSTRUCT A PARALLEL DATA ACCESS BLOCK fQSAMl 



The PDAB macro instruction is used in conjunction with the GET 
(TYPE=P) macro instruction. It defines an area in the problem 
program where the open and close routines build and maintain a 
queue of DCB addresses for use by the get routine. 

The parallel data access block is constructed during the 
assembly of the problem program. The MAXDCB operand must be 
coded in the PDAB macro instruction^ because it cannot be 
supplied from any other source. 

Certain data set characteristics prevent a DCB address from 
being available on the queue — see the description of QSAM 
parallel input processing in Data Administration Guide . 

The PDAB macro is written « 



Csynkfiil PDAB 



MAXDCB=dgb n^mbgr 



MAXDCBsabsexp (maximum value is 32767) 

specifies the maximum number of DCBs that you require in 
the queue for a GET request. 

Note: The number of bytes required for PDAB is equal to 
Z^+Sn, where n is the value of the keyword* MAXDCB. 
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PDABD— PRO VIDE SYMBOLIC REFERENCE TO A PARALLEL DATA ACCESS BLOCK (QSAMl 

The PDABD macro instruction is used to generate a dummy control 
section that provides symbolic names for the fields in one or 
more parallel data access blocks. The names* attributes* and 
descriptions of the fields appear in Appendix G, **POABD Symbolic 
Field Names'* on page 219. 

The name of the dummy control section generated by a PDABD macro 
instruction is IHAPDAB. The use of any of the symbolic names 
provided by the dummy section should be preceded by a USING 
instruction specifying IHAPDAB and a dummy section base register 
containing the address of the actual parallel data access block. 
The PDABD macro instruction should only be used once within any 
assembled module; however, the resulting symbolic names can be 
used for any number of parallel data access blocks by changing 
the address in the dummy section base register. The PDABD macro 
instruction can be coded at any point in a control section. If 
coded at any point other than at the end of a control section, 
the control section must be resumed by coding a CSECT 
instruction. 

The PDABD macro is written* 
b I PDABD [b 
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POINT— POSITION TO A RELATIVE BLOCK (BPAM AND BSAM— TAPE AND DIRECT ACCESS ONLY) 



The POINT macro starts the next READ or WRITE operation at the 
specified data set block on the current volume. Before you 
issue POINT macros ensure that all input and output operations 
using the same data control block are tested for completion. If 
you are processing a data set that has been opened for UPDAT, 
you must issue a READ macro immediately after the POINT macro. 
If you are processing an output data set, you must issue a HRITE 
macro immediately after the POINT macro before you close the 
data set; unless you have already issued the CLOSE macro (with 
TYPEsT specified) before the POINT macro. 

Note: If you specify the TYPE=T option in the CLOSE macro and 
you do not issue a WRITE macro before you close the data set/ 
use the end-of-data location that is determined by TCLOSE. 

The POINT macro is written t 





POINT 


deb address 












^CTYPE:{ABS|||l}3 



deb address — RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened data set that is to be 
positioned. 

block address — RX-Type Address, (2-12), or (0) 

The block address operand indicates which block in the data 
set is to be processed next. 

For an IBM 3480 Magnetic Tape subsystem, when TYPE=ABS is 
specified, the block address operand specifies the address 
of a fullword on a fullword boundary that contains the 
physical block identifier of the block in the data set that 
is to be processed next. This physical block identifier is 
provided as output from a prior execution of the NOTE 
macro . 

When TYPE=REL is specified or defaults, the block address 
operand specifies the address of a fullword on a fullword 
boundary that contains the relative address of the block in 
the data set that is to be processed next. The relative 
address is specified as follows > 

Magnetic Tape: The block number is in binary and is 
right-adjusted in the fullword with the high-order bits set 
to 0; add 1 if reading tape backward. Do not use the POINT 
macro instruction for tapes without standard labels when: 

• The data set is opened for RDBACK, or 

• The DD statement for the data set specifies DISP=MOD 

If OPTCD^H is indicated in the data control block, the 
POINT macro instruction can be used to perform record 
positioning on DOS tapes that contain embedded checkpoint 
records. Any embedded checkpoint records that are 
encountered during the record positioning are bypassed and 
are not counted as blocks spaced over. OPTCD=H must be 
specified in a job control language DD statement. Do not 
use the POINT macro instruction to backspace DOS 7-track 
tapes that are written in data convert mode and that 
contain embedded checkpoint records. 

Note: Hhen an end-of-data condition is encountered on 
magnetic tape, you must not issue the POINT macro 
instruction unless you have first repositioned the tape for 
processing within your data set; otherwise, the POINT 
operation will be unsuccessful. (Issuing CLOSE TYPE=T is 
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COMPLETION CODES 



EEL 



an easy method to use to accomplish repositioning in your 
EODAD routine.) 

Direct Access Device: The fullword specified in the block 
address operand contains the relative track address (in the 
form TTRz), where: 

TT is a 2-byte relative track number. 

R is a 1-byte block (record) number on the track 

indicated by TT. 
z is a byte set to 0; it may also be set to 1 to retrieve 

the block following the TTR block. 

Note: The first block of a magnetic tape data set is 
always specified by the hexadecimal value 00000001. The 
first block of a direct access device data set can be 
specified by either hexadecimal 00000001 or 00000100 (see 
the preceding description of TTRz) . 

TYPEsCABSlfili.} 

indicates whether the block address operand is a physical 
block identifier or a relative address. 

ABS 

indicates that the block address operand specifies an 
address of a fullword on a fullword boundary 
containing a physical block identifier of the block in 
the data set that is to be processed next. 

indicates that the block address operand specifies an 
address of a fullword on a fullword boundary 
containing the relative address of the block in the 
data set that is to be processed next. 

POINT cannot be used for SYSXN or SYSOUT data sets. 

If the volume cannot be positioned correctly or if the block 
identification is not of the correct format/ the error analysis 
(SYNAD) routine is given control when the next CHECK macro 
instruction is executed. 



Nhen the system returns control to your problem program and you 
have specified the ABS parameter* the loworder byte of register 
15 contains a return code; the low-order byte of register 0 
contains a reason codet 

Return Reason 

Code (15) Code (0) Meaning 

00 (X'OO*) Successful completion. 

04 (X*04*) Device does not support block 

identifier. 

08 (X'08') 01 (X'OI*) Incorrect parameter. 

08 CX'08') 02 (X*02<) Incorrect DCB or a DEBCHK error. 

08 (X'08') 03 (X'03') Environmental error. 

08 (X«08*) II CX*OB*) Unsuccessful call to ESTAE macro. 

08 (X'08') 12 (X'OC) Unsuccessful GETMAIN request. 

12 (X'OC) Input/output error. 
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PRTQV—TEST FOR PRINTER CARRIAGE OVERFLOW fBSAM AND QSAM— ONLINE PRINTER AND 3525 
CARD PUNCH. PRINT FEATURE! 

The PRTOV macro instruction is used to control the page format 
for an online printer when carriage control characters are not 
being used or to supplement the carriage control characters that 
are being used . 

The PRTOV macro instruction causes the system to test for an 
overflow condition on the specified channel (either channel 9 or 
channel 12) of the printer carriage control* and either skip the 
printer carriage to the line corresponding to channel 1, or 
t transfer control to the exit address* if one is specified. 

Overflow is detected after printing the line that follows the 
line corresponding to channel 9 or channel 12. The PRTOV macro 
should be issued each time you want the system to test for an 
overflow condition. 

When the PRTOV macro instruction is used with a 3525 card punch, 
print feature, channel 9 or 12 can be tested. If an overflow 
condition occurs, control is passed to the overflow exit routine 
if the overflow exit address is coded, or a skip to channel 1 
(first print-line of the next card) occurs. 

When requesting overprinting (for example, to underscore a 
line), the PRTOV macro instruction is issued before the first 
PUT or WRITE macro instruction only. The PRTOV macro 
instruction should be issued only when the device type is an 
online printer. PRTOV cannot be used to request overprinting on 
the 3525. Overprinting' cannot be performed on the 3800. 

The PRTOV macro is written: 





PRTOV 














[.overflow exit address! 



deb address — RX-Type Address or (2-12) 

The dob address operand specifies the address of the data 
control block opened for output to an online printer or 
3525 card punch with a print feature. 

9 — Coded as shown 
12 — Coded as shown 

These operands specify the channel that is to be tested by 
the PRTOV macro instruction. For an online printer, 9 and 
12 correspond to carriage control channels 9 and 12. For 
the 3525 card punch, 9 corresponds to print line number 17, 
and 12 corresponds to print line number 23. More detail 
about the card print-line format is included in OS and 
OS/VS Proarammino Support for the IBM 3505 Card Reader and 

im ?g2g Card Pvngh- 

overflow exit address — RX-Type Address or (2-12) 

The overflow exit address operand specifies the address of 
the user-supplied routine to be given control when an 
overflow condition is detected on the specified channel. 
If this operand is omitted, the printer carriage skips to 
the first line of the next page or the .5525 skips to the 
first line of the next card before executing the next PUT 
or WRITE macro instruction. 
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When the overflow exit routine is given controls the contents of 
the registers are as followst 

Register Contents 

0 and 1 The contents are destroyed. 

2-13 The same contents as before the macro instruction was 
executed. 

14 Return address. 

15 Overflow exit routine address. 
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PUT"— WRITE NEXT LOGICAL RECORD fQISAMl 

The PUT macro instruction causes the system to write a record 
into an indexed sequential data set. If the move mode is used, 
the PUT macro instruction moves a logical record into an output 
buffer from which it is written. If locate mode is specified, 
the address of the next available output buffer segment is 
available in register 1 after the PUT macro instruction is 
executed. The logical record can then be constructed in the 
buffer for output as the next record. The records are blocked 
by the system (if specified in the data control block) before 
being placed in the data set. The system uses the length 
specified in the record length (DCBLRECL) field of the data 
control block as the length of the record currently being 
written. Nhen constructing blocked variable-length records in 
the locate mode, the problem program may either specify the 
maximum record length once in the DCBLRECL field of the data 
control block or provide the actual record length in the 
DCBLRECL field before issuing each PUT macro instruction. Use 
of the maximum record length may result in more but shorter 
blocks, because the system uses this length when it tests to see 
if the next record can be contained in the current block. 

The PUT macro instruction is used to create or extend an indexed 
sequential data set. To extend the data set, the key of any 
added record must be higher than the highest key existing in the 
data set, and the disposition parameter of the DD card must be 
specified as DISP=MOD. The new records are placed in the prime 
data space, starting in the first available space, until the 
original space allocation is exhausted. 

To create a data set using previously allocated space, the 
disposition parameter of the DD card must specify DISP^OLD. 

The PUT macro is written: 





PUT 








Cr9r$si address! 



deb address — RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened ISAM data set. 

area address — RX-Type Address, (2-12), or (0) 

The area address operand specifies the address of the area 
that contains the record to be written (move mode only). 
Either move or locate node can be used with QISAM, but they 
must not be mixed within the specified data control block. 
The following describes operations for locate and move 
modes: 

Locate Node: If locate mode is specified in the data 
control block, the area address operand must be omitted. 
The system returns the address of the next available buffer 
in register 1; this is the buffer into which the next 
record is placed. The record is not written until another 
PUT macro instruction is issued for the same data control 
block. The last record is written when a CLOSE macro 
instruction is issued to close the data set. 

Hove Mode: If move mode has been specified in the data 
control block, the area address operand must specify the 
address in the problem program that contains the record to 
be written. The system moves the record from the area to 
an output buffer before control is returned. If the area 
address operand is omitted, the system assumes that 
register 0 contains the area address. 
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PUT ROUTINE EXIT 

Th« error analysis (SYNAD) routine is given control if the 
output operation could not be completed satisfactorily. The 
contents of the registers when the error analysis routine is 
given control are described in Appendix A> "Status Information 
Following an Input/Output Operation" on page 192. 
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PUT--V/RITE NEXT LOGICAL RECORD (QSAM) 

The PUT macro instruction causes the system to write a record in 
a sequential data set. Various modes are available and are 
specified in the DCB macro instruction. In the locate mode^ the 
address of an area within an output buffer is returned in 
register 1 after the macro instruction is executed. The user 
should subsequently construct> at this address^ the next 
sequential record or record segment. The move mode of the PUT 
macro instruction causes a logical record to be moved into an 
output buffer. In the data mode» which is available only for 
variable-length spanned records^ the PUT macro instruction moves 
only the data portion of the record into one or more output 
buffers. 

The records are blocked by the control program (as specified in 
the data control block) before being placed in the data set. 
For undefined-length records^ the DCBLRECL field determines the 
length of the record that is subsequently written. For 
variable-length records^ the DCBLRECL field is used to locate a 
buffer segment of sufficient size (locate mode)/ but the length 
of the record actually constructed is verified before the record 
is written (the output block can be filled to the maximum if, 
before issuing the PUT macro^ DCBLRECL is set equal to the 
record length). For variable-length spanned records, the system 
segments the record according to the record length/ buffer 
length/ and amount of unused space remaining in the output 
buffer. The smallest segment created will be 5 bytes/ 4 for the 
segment descriptor word plus 1 byte of data. 

If the ISCII/ASCII translation routines are included when the 
operating system is generated/ translation can be requested by 
coding LABEL=(/AL) or (»AUL) in the DD statement/ or it can be 
requested by coding OPTCD=Q in the DCB macro instruction or DCB 
subparameter of the DD statement. Mhen translation is 
requested/ all QSAM records whose record format (RECFM operand) 
is F/ FB/ D/ DS/ DB/ DBS/ or U are automatically translated from 
EBCDIC code to ISCII/ASCII code. For translation to occur 
correctly/ all output data must be in EBCDIC code; any EBCDIC 
character that cannot be translated into an ISCII/ASCII 
character is replaced by a substitute character. 

The PUT macro is written* 





PUT 


dcfc> address 









deb address — RX-Type Address/ (2-12)/ or (1) 

The deb address operand specifies the address of the data 
control block for the data set opened for output. 

area address — RX-Type Address/ (2-12)/ or (0) 

The area address operand specifies the address of an area 
that contains the record to be written (move or data mode). 
The move/ locate/ or data mode can be used with QSAM/ but 
they must not be mixed within the specified data control 
block. If the area address operand is omitted in the move 
or data mode/ the system assumes that register zero 
contains the area address. The following describes the 
operation of the three modes: 

Locate Mode: If locate mode is specified/ the area address 
operand must be omitted. The system returns the address of 
the next available buffer in register 1; this is the buffer 
into which the next record is placed. 

Hhen variable-length spanned records are processed without 
the extended logical record interface (XLRI)/ and a record 
area has been provided for a logical record interface (LRI) 
(BFTEK=A has been specified in the data control block or a 
BUILDRCD macro instruction has been issued)/ the address 
returned in register 1 points to an area large enough to 
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con-tain the maximum record size (up to 32756 bytes). The 
system segments the record and writes all segments* 
providing proper control codes for each segment. If* for 
variable-length spanned records* an area has not been 
provided* the actual length remaining in the buffer will be 
returned in register 0. In this case* it is the user's 
responsibility to segment the records and process them in 
terms of record segments. ISO/ANSI/FIPS spanned records* 
RECFM=DS or RECFM=DBS* may not be processed in segment 
mode. The record or segment is not written until another 
PUT macro instruction is issued for the same data control 
block. The last record is written when the CLOSE macro 
instruction is issued. 

Hhen a PUT macro instruction is used in the locate mode* 
the address of the buffer for the first record or segment 
is obtained by issuing a PUT macro after open. QSAM 
returns the address in register 1. The user then moves 
data to this address. The buffer is not written to the 
data set until the next PUT macro is issued. If records 
are blocked* the data is not written to the data set until 
the PUT following the one that filled the buffer. Each PUT 
macro will return the address of the next buffer in 
register 1. After this address is given to the user* QSAM 
will always count this address as a valid record. The user 
should always place valid data at the address returned in 
register 1 before issuing another PUT or FEOV or CLOSE 
MACRO* otherwise* residual data at that location will be 
written to the data set. After an FEOV macro is issued* 
(for multivolume data sets)* register 1 must be 
reinitialized with the first buffer address for the next 
volume by issuing a PUT macro after return from FEOV. 

Move Mode: If move mode has been specified in the data 
control block* the area address operand specifies the 
address of the area that contains the record to be written. 
The system moves the record to an output buffer before 
control is returned. 

Data Node: If data mode is specified in the data control 
block (data mode cian be specified for variable-length 
spanned records only)* the area address operand specifies 
the address of an area in the problem program that contains 
the data portion of the record to be written. The system 
moves the data portion of the record to an output buffer 
before control is returned. The user must place the total 
data length in the DCBPRECL (not the DCBLRECL) field of the 
data control block before the PUT macro instruction is 
issued. 

Extended Logical Record Interface (XLRX): When the PUT 
macro is used with the extended logical record interface* 
the address returned in register 1 points to an area that 
is used to build a 4-byte logical record length field (RDN) 
followed by a complete logical record. The logical record 
length byte count occupies the three low-order bytes of the 
record length field and must include the length of the 
field. The high-order byte must be zero. The DCB LRECL 
value indicates the length of the longest logical record of 
the data set in 'K' (102<i-byte) units. 



PUT ROUTINE EXIT 

If the output operation could not be completed satisfactorily* 
the error analysis (SYNAD) routine is given control after the 
next PUT instruction is issued. The contents of the registers 
when the error analysis routine is given control are described 
in Appendix Ar "Status Information Following an Input/Output 
Operation" on page 192. 
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PUTX—WRITE A RECORD FROM AN EXISTING DATA SET (QISAM AND QSAM) 

The PUTX macro instruction causes the control program to return 
an updated record to a data set (QISAM and QSAM) or to write a 
record from an input data set into an output data set (QSAM 
only). There are two modes of the PUTX macro instruction. The 
output mode (QSAM only) allows writing a record from an input 
data set on a different output data set. The output data set 
may specify the spanning of variable-length records^ but the 
input data set must not contain spanned records. 

The update mode returns an updated record to the data set from 
which it was read. The logical records are blocked by the 
control program^ as specified in the data control block, before 
they are placed in the output data set. The control program 
uses the length specified in the DC6LRECL field as the length of 
the record currently being stored. Control is not returned to 
the user's program until the control program has processed the 
record. 

For SYSIN or SYSOUT data sets, the PUTX macro instruction can be 
used only in the output mode. 

The PUTX macro is written: 





PUTX 






t, input deb address] 



deb address — RX-Type Address^ (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for a data set opened for output. 

input deb address — RX-Type Address, (2-12), or (0) 

The input deb address operand specifies the address of a 
data control block opened for input. The PUTX macro 
instruction can be used for the following modes: 

Output Node: This mode is used with QSAM only. The input 
deb address operand specifies the address of the data 
control block opened for input. If this operand is 
omitted, the system assumes that register 0 contains the 
input deb address. 

Update Mode: The input deb address operand is omitted for 
update mode. 



PUTX ROUTXNE EXIT 

The error analysis (SYNAD) routine is given control if the 
operation is not completed satisfactorily. The contents of the 
registers when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation** on page 192. 
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RPAD — READ A BLOCK IBDAMI 



The READ macro instruction causes a block to be retrieved from a 
data set and placed in a designated area of storage. Control 
may be returned to the problem program before the block is 
retrieved. The input operation must be tested for completion 
using a CHECK or WAIT macro instruction. A data event control 
blocks shown in Appendix A> "Status Information Following an 
Input/Output Operation" on paga 19Z, is constructed as part of 
the macro expansion. 

The standard form of the READ macro instruction is written as 
follows (the list and execute forms ara shown following the 
descriptions of the standard form)t 





READ 


» tvpa 

>dcb address 






yCarea address 1 *s*> 










.tkev addressl'SMOl 






»blQ<;K address 






l»next address! 



decb name — symbol 

The decb name operand specifies the name assigned to the 
data event control block created as part of the macro 
expansion. 

±:dEJa-"CDU F I X ] t R I Run 
IDKCFIXICRIRU]} 
The type operand is coded in one of the combinations shown 
above to specify the type of read operation and the 
optional services performed by the systems 



DZ 



DK 



specifies that the data and key, if any, are to be 
read from a specific device address. The device 
address^ which can be designated by any of the three 
addressing methods^ is supplied by the block address 
operand. 



specifies that the data (only) is to be read from a 
device address identified by a specific key. The key 
to be used as a search argument must be supplied in 
the area specified by the key address operand; the 
search for the key starts at the device address 
supplied in the area specified by the block address 
operand. The description of the DCB macro 
instruction* LIMCT operand* contains a description of 
the search. 



requests that the system provide block position 
feedback into the area specified by the block address 
operand. This character can be coded as a suffix to 
DI or DK as shown above. 



requests exclusive control of the data block being 
read* and that the system provide block position 
feedback into the area specified by the block address 
operand. The descriptions of the WRITE and RELEX 
macro instructions contain a description of releasing 
a data block that is under exclusive control. This 
character can be coded as a suffix to DZ or DK as 
shown above. 
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R 

requests that the system provide next address feedback 
into the area specified by the next address operand. 
Nhen R is coded^ the feedback is the relative track 
address of the next data record. This character can 
be coded as a suffix to 01 or DK» DXFr DIX» DKF, or 
DKX as shown above» but can be coded only for use with 
variable-length spanned records. 

RU 

requests that the system provide next address feedback 
into the area specified by the next address operand. 
Nhen RU is codedf the feedback is the relative track 
address of the next capacity record (RO) or data 
record whichever occurs first. These characters can 
be coded as a suffix to DZ» DK» DXF» DZX» DKF, or DKX, 
but it can be coded only for use with variable-length 
spanned records. 

deb address — A-Type Address or (2-12) 

The deb address operand specifies the address of the data 
control block opened for the data set to be read. 

area address — A-Type Address, (2-12), or 'S' 

The area address operand specifies the address of the area 
in which the data block is to be placed. If *S* is coded 
instead of an address, dynamic buffering is requested 
(dynamic buffering must also be specified in the MACRF 
operand of the DC6 macro instruction). When dynamic 
buffering is used, the system acquires a buffer and places 
its address in the data event control block. 

length — symbol, decimal digit, absexp, (2-12), or 'S' 

The length operand specifies the number of data bytes to be 
read up to a maximum of 32760. If *S* is coded instead of 
a length, the number of bytes to be read is taken from the 
data control block. This operand is ignored if the records 
are not format-U. 

key address — A-Type Address, (2-12), 'S', or 0 

The key address operand specifies the address of the area 
for the key of the desired data block. If the search 
operation is made using a key, the area must contain the 
key. Otherwise, the key is read into the designated area. 
If the key is read and *S* was coded for the area address, 
*S* can also be coded for the key address; the key and data 
are read sequentially into the buffer acquired by the 
system. If the key is not to be read, specify 0 instead of 
an address or 'S* . 

block address — A-Type Address or (2-12) 

The block address operand specifies the address of the area 
containing the relative block address, relative track 
address, or actual device address of the data block to be 
retrieved. The device address of the data block retrieved 
is placed in this area if block position feedback is 
requested. The length of the area that contains the 
address depends on whether the feedback option (OPTCD=F) 
has been specified in the data control block and if the 
READ macro instruction requested feedback. 

If OPTCD=F has been specified, feedback (if requested) is 

in the same form as originally presented by the READ macro 

instruction, and the field can be either 3 or 8 bytes long, 
depending on the type of addressing. 

If OPTCD=F has not been specified, feedback (if requested) 

is in the form of an actual device address, and the field 
must be 8 bytes long. 
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next addrsss — A-Type Address or (2-12) 

The next address operand specifies the address of the 
storage area in which the system places the relative 
address of the next record. The length operand must be 
specified as 'S'. Nhen the next address operand is 
specif iedy an R or RU must be added to the type operand 
(for example^ DZR or DXRU) . The R indicates that the next 
address returned is the next data record. RU indicates 
that the next address returned is for the next data or 
capacity records whichever occurs first. The next address 
operand can be coded only for use with variable-length 
spanned records. 
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REAP— REAP A BLOCK OF RECORPS (glSAfU 

The READ macro instruction causes an unblocked records or a 
block containing a specified logical records to be retrieved 
from a data set. The block is placed in a designated area of 
storage^ and the address of the logical record is placed in the 
data event control block. The data event control block is 
constructed as part of the macro expansion and is described in 
Appendix A, "Status Information Following an Input/Output 
Operation" on page 192. 

Control may be returned to the problem program before the block 
; is retrieved. The input operation must be tested for completion 

using a HAIT or CHECK macro instruction. 

The standard form of the READ macro instruction is written as 
follows for BISAM (the list and execute forms are shown 
following the descriptions of the standard form): 





READ 


d$<;b n^me 
f<^<^b address 






»<i£iia±brs<} 













degb nawe — symbol 

The decb name operand specifies the name assigned to the 
data event control block (DECB) created as part of the 
macro expansion. 

The type operand is coded as shown to specify the type of 
read operation: 

K 

specifies normal retrieval. 

KU 

specifies that the record retrieved is to be updated 
and returned to the data set; the system saves the 
device address to be returned. 

Nhen an ISAM data set is being updated with a READ KU 
macro instruction and a WRITE K macro instruction, 
both the READ and HRITE macro instructions must 
reference the same data event control block. This 
update operation can be performed by using a list-form 
instruction to create the list (data event control 
block) and by using the execute form of the READ and 
NRITE macro instructions to reference the same list. 

deb address — A-Type Address or (2-12) 

The deb address operand specifies the address of the data 
control block for the opened data set to be read. 

area address — A-Type Address , (2-12), or 'S' 

The area address operand specifies the address of the area 
in which the data block is placed. The first 16 bytes of 
this area are used by the system and do not contain 
information from the data block. The area address must 
specify a different area than the key address. Dynamic 
buffering is specified by coding 'S' instead of an address; 
the address of the acquired storage area is returned in the 
data event control block. Indexed sequential buffer and 
work area requirements are described in Data Ad ministration 
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length — symbols decimal digits absexp^ (2-12) » or 'S* 

The length operand specifies the number of bytes to be read 
up to a maximum of 32760. If 'S' is coded instead of a 
lengthy the number of bytes to be read is taken from the 
count field of the record; for blocked records* 'S* must be 
coded. 

key address — A-Type Address or (2-12) 

The key address operand specifies the address of the area 
in the problem program containing the key of a logical 
record in the block that is to be retrieved. Hhen the 
input operation is completed^ the storage address of the 
logical record is placed in the data event control block. 
The key address must specify a different area than the area 
address. 
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REAP— REAP A BLOCK CPPAH ANP P^AH) 

The READ macro instruction causes a block to be retrieved from a 
data set and placed in a designated area of storage. Control 
may be returned to the problem program before the block is 
retrieved. The input operation must be tested for completion 
using a CHECK macro instruction. A data event control, blocks 
shown in Appendix A/ "Status Information Following an 
Input/Output Operation" on page 192^ is constructed as part of 
the macro expansion. 

If the OPEN macro instruction specifies UPDAT, both the READ and 
NRITE macro instructions must reference the same data event 
control block. (See the list form of the READ or WRITE macro 
instruction for a description of how to construct a data event 
control block; see the execute form of the READ or HRITE macro 
instruction for a description of how to modify an existing data 
event control block.) 

The standard form of the READ macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form instructions): 





READ 


d??b name 

f.tYP? 






♦area address 







decb pg^mg — symbol 

The decb name operand specifies the name assigned to the 
data event control block (DECB) created as part of the 
macro expansion. 

iyEfi— {SFISB} 

The type operand is coded as shown to specify the type of 
read operation: 

SF 

specifies normals sequential ^ forward retrieval. 

SB 

specifies a read-backward operation; this operand can 
be specified only for magnetic tape with format-F or 
format-U records. 

This operand is intended to be used when the data set 
is OPEN for RDBACK. Tape positioning, label 
processing, and volume mounting errors will occur 
during EOV and CLOSE if an OPEN option^ other than 
RDBACK, is used. 

deb address — A-Type Address or (2-12) 

The deb address operand specifies the address of the data 
control block for the opened data set to be read. 

area address — A-Type Address or (2-12) 

The area address operand specifies the address of the 
problem program area in which the record is placed. When a 
READ SB macro instruction is issued, the area address must 
be the address of the last byte of the area into which the 
record is read. If the data set contains keys, the key is 
read into the buffer followed by the data. 

length — symbol, decimal digit, absexp, (2-12), or 'S* 

The length operand specifies the number of data bytes to be 
read, to a maximum of 32760. If the data is translated 
from ISCII/ASCII code to EBCDIC code, the maximum number of 
bytes that can be read is 2048. For format-U records, 'S* 
or a valid length must be coded. The number of bytes to be 
read is taken from the data control block if 'S' is coded 
instead of a number. (This operand is ignored for format-F 
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OP fopmat-V pecopds.) Fop fopmat-D pecopds only* tha 
length of the pecopd just pead is automatically insepted 
into the DCBLRECL field by the check poutine if BUFOFF=(t) 
is not specified in the data contpol block. 
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REAP— REAP A BLQCK (OFFSET REAP OF KEYEP BPAM P ATA $ET V$ INg PgA M) 

The READ macro instruction causes a block to be retrieved from a 
data set and placed in a designated area of storage. The data 
set is a BDAM data set and its record format is unblocked 
variable-length spanned records. BFTEK=R must be specified in 
the data control block. Control may be returned to the problem 
program before the block is retrieved. The input operation must 
be tested for completion using a CHECK macro instruction. A 
data event control blocks shown in Appendix A^ "Status 
Information Following an Input/Output Operation** on page 192^ is 
constructed as part of the macro expansion. 

The standard form of the READ macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 





READ 


decb name 






,SF 

»d9b ?5l?<r9ss 













dcgb namg — symbo 1 

The decb name operand specifies the name assigned to the 
data event control block (DECB) created as part of the 
macro expansion. 

SF 

specifies normals sequential^ forward retrieval. 

deb address — A-Type Address or (2-12) 

The deb address operand specifies the address of the data 
control block for the opened BDAM data set to be read. 

area address — A-Type Address or (2-12) 

The area address operand specifies the address of the area 
in which the record is placed. 

Nhen a spanned BDAM data set is created with keys» only the 
first segment of a record has a key; successive segments do not. 
Mhen a spanned record is retrieved by the READ macro 
instruction^ the system places a segment in a designated area 
addressed by the area address operand. The problem program must 
assemble all the segments into a logical record. Because only 
the first segment has a key^ the successive segments are read 
into the designated area offset by key length to ensure that the 
block-descriptor word and the segment'descriptor word are always 
in their same relative positions. 
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RSAP— LI$T FORM 

The list form of the READ macro instruction is used to construct 
a data management parameter list in the form of a data event 
control block (DECB). For a description of the various fields 
of the DECB for each access methods see Appendix A^ "Status 
Information FolloMing an Input/Output Operation" on page 192. 

The description of the standard form of the READ macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access methods and the meaning of 'S' 
when coded for the area address^ length* and key address 
operands. For each access method* 'S' can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the list form only. 

The list form of the READ macro is written: 





READ 


d«cb namfi 
yCdcb address! 

.Carea addressMS'l 






*Ckey addr?55l'S'l 










ytblflcK address! 






•tnext address] 






fMFsL 



degb name — symbol 

tvpe — Code one of the types shown in the standard form 

deb address — A-Type Address 

area address — A-Type Address or 'S' 

length — symbol* decimal digit* absexp^ or 'S' 

key address — A-Type Address or 'S' 

block address — A-Type Address 

next address — A-Type Address 

MFsU — Coded as shown 

The MF=L operand specifies that the READ macro instruction 
is used to create a data event control block that can be 
referenced by an execute-form instruction. 
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READ— EXECUTE FORM 

A remote data management parameter list (data event control 
block) is used in» and can be modified by^ the execute form of 
the READ macro instruction. The data event control block can be 
generated by the list form of either a READ or WRITE macro 
instruction. 

The description of the standard form of the READ macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method and the meaning of *S* 
when coded for the area address^ lengths and key address 
operands. For each access methods *S* can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the execute form only. 

The execute form of the READ macro is written* 





READ 


d«?b address 

■ type 

>td<?b address! , . 

>[area addressl'S'] 






rlkev addressl'S'J 










•[block address! 






rtn^xt address! 









deeb address — RX-Type Address or (2-12) 

type — Code one of the types shown in the standard form 

deb address — RX-Type Address or (2-12) 

area address — RX-Type Address^ (2-12), or 'S' 

length — symbol, decimal digit, absexp, (2-12), or 'S' 

key address — RX-Type Address, (2-12), or 'S' 

block address — RX-Type Address, or (2-12) 

next address — RX-Type Address or (2-12) 

NFsE — Coded as shown 

The MFsE operand specifies that the execute form of the 
READ macro instruction is used, and that an existing data 
event control block (specified in the decb address operand) 
is used by the access method. 
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RELEX—RELEASE EXCLUSIVE CONTROL (BDAMl 

The RELEX macro instruction causes release of a data block from 
exclusive control. The block must have been requested in an 
earlier READ macro instruction that specified either DIX or OKX. 

Note: A MRITE macro instruction that specifies either DIX or 
OKX can also be used to release exclusive control. 

The RELEX macro is written* 





RELEX 


D 




.deb address 







D 

specifies direct access. 

deb address — RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for a BDAM data set opened for processing. 
The operand must specify the same data control block 
designated in the associated READ macro instruction. 

block address — RX-Type Address, (2-12), or (0) 

The block address operand specifies the address of the area 
containing the relative block address, relative track 
address, or actual device address of the data block being 
released. The operand must specify the same area 
designated in the block address operand of the associated 
READ macro instruction. 



COMPLETION CODES 

When the system returns control to the problem program, the 
low-order byte of register 15 contains one of the following 
return codes; the three high-order bytes of register 15 are set 
to 0. 

Return 

Code (15) Meaning 



00 (X'OO*) Operation completed successfully. 

04 (X*04') The specified data block was not in the 
exclusive control list. 

08 (X'08*) The relative track address, relative 

block address, or actual device address 
was not within the data set. 
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RELSE— RELEASE AN INPUT BUFFER fOISAM ANP QSAM IWPUT1 

The RELSE macro instruction causes immediate release of the 
current input buffer. The next GET macro instruction retrieves 
the first record from the next input buffer. For 
variable-length spanned records (QSAM), the input data set is 
spaced to the next segment that starts a logical record in a 
subsequent block. Thus, one or more blocks of data or records 
may be skipped. The RELSE macro instruction is ignored if a 
buffer has just been completed or released, if the records are 
unblocked, or if issued for a SYSIN data set. 

The RELSE macro is written t 



[S^^rnkfill RELSE 



dgb address 



deb address — RX-Type Address, (2-12), or (1) 

The deb laddress operand specifies the address of the data 
control block for the opened input data set. 
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SETL—SET LOWER LIMIT OF SEQUENTIAL RETRIEVAL (QISAM INPUT 1 



The SETL macro instruction causes the control program to start 
processing the next input request at the specified record or 
device address. Sequential retrieval of records using the GET 
macro instruction continues from that point until the end of the 
data set is encountered or a CLOSE or ESETL macro instruction is 
issued. An ESETL macro instruction must be issued between SETL 
macro instructions that specify the same data set. 

The SETL macro instruction can specify that retrieval is to 
start at the beginning of the data set» at a specific address on 
the device* at a specific record* or at the first record of a 
specific class of records. For additional information on SETL 
functions, see Data Administration Guide. 

The SETL macro is written* 





SETL 


deb address 




{fKCH3»l9wer limit addr§ss> 

C.KC.lower limit addressl 






C.KDCHl. lower limit addressl 
f.KCD» lower limit addressl 










C#l»lpwer limit ^ddressJ 






C. ID. lower limit addressl 















deb address — RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block opened for the indexed sequential data set 
being processed. 

The following operands are coded as shown; they specify the 
starting point and type of retrieval: 



specifies that the next input operation is to begin at the 
record containing the key specified in the lower-limit 
address operand. 



KC 

specifies that the next input operation is to begin at the 
first record of the key class specified in the lower-limit 
address operand. If the first record of the specified key 
class has been deleted, retrieval begins at the next 
nondeleted record regardless of key class. 

H 

used with either K or KD, specifies that, if the key in the 
lower-limit address operand is not in the data set, 
retrieval begins at the next higher key. The character H 
cannot be coded with the key class operands (KC and KCD) . 

KD 

specifies that the next input operation is to begin at the 
record containing the key specified in the lowei — limit 
address operand, but only the data portion of the record is 
retrieved. This operand is valid only for unblocked 
records. 

KCD 

specifies that the next input operation is to begin at the 
first record of the key class specified in the lower-limit 
address operand, but only the data portion of the record is 
retrieved. This operand is valid only for unblocked 
records. 

Z 

specifies that the next input operation is to begin with 
the record at the actual device address specified in the 
lower-limit address operand. 
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ZD 

specifies that the next input operation is to begin with 
the record at the actual device address specified in the 
lower-limit address operands but only the data portion of 
the record is retrieved. This operand is valid only for 
unblocked records. 

B 

specifies that the next input operation is to begin with 
the first record in the data set. 

BD 

specifies that the next input operation is to begin with 
the first record in the data set» but only the data portion 
is retrieved. This operand is valid only for unblocked 
records. 

lower limX address — RX-Type Address, (2-12), or (0) 

The lower-limit address operand specifies the address of 
the area containing the key, key class, or actual device 
address that designates the starting point for the next 
input operation. If I or ID has been specified, this area 
must contain the actual device address (in the form 
MBBCCHHR) of a prime data record; the other types require 
that the key or key class be contained in this area. 



SETL EXIT 

The error analysis (SYNAD) routine is given control if the 
operation could not be completed successfully. The exception 
condition code and general registers are set as shown in 
Appendix A, "Status Information Following an Input/Output 
Operation" on page 192. If the SETL macro instruction is not 
reissuedy retrieval starts at the beginning of the data set. 
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SETPRT— PRINTER SETUP (BSAM, QSAM. AND EXCPl 

For the IBM 3800 Printing Subsystem* the SETPRT macro 
instruction is used to initially set or dynamically change the 
printer control information. The following control information 
may be changed with the SETPRT macro t 

• Bursting of forms (BURST parameter) 

• Character arrangements to be used (CHARS parameter) 

• The number of copies (COPIES parameter) 

• The starting copy number (COPYNR parameter) 

• Vertical formatting of a page (FCB parameter) 

• Flashing of forms (FLASH parameter) 

• Initializing the printer control information (INIT 
parameter) 

• Modification of copy (MODIFY parameter) 

• Blocking or unblocking of data checks (OPTCD parameter) 

In addition to changing the control information^ you can also do 
the following} 

• Create your own 3800 load modules in a library to replace 
the use of SYSl . IMAGELIB (LIBOCB parameter). 

• SETPRT error messages that are sent to the printer can also 
be passed back to the invoking program (MS6AREA parameter). 

• Print or suppress error messages on the printer (PRTMS6 
parameter) . 

• Control the scheduling of SYSOUT segment printing (DISP 
parameter). 

To use all-points addressability when operating the 3800 Model 
3, PSF libraries (for example, SYSl . FONTLIB, SYSl . FDEFLIB, 
SYSl.PDEFLIB) will be used instead of SYSl . IMAGELIB. As an 
alternative, the library with the LIBDCB parameter may be used. 

For additional information on how to use the SETPRT macra 

instruction with the 3800 Model 3^ see IBM 3800 Printing 
Subsystem Models 3 and 8 Programmer's Guide. 

For printers other than the 3800 Printing Subsystem, the SETPRT 
macro instruction is used to control the following: 

• Selection and verification of UCS and FCB images (UCS and 
FCB parameters) 

• Blocking or unblocking of data checks (OPTCD parameter) 

• Printing lowercase EBCDIC characters in uppercase (OPTCD and 
UCS parameters) 

For printers that have a universal character set (UCS) buffer or 
a forms control buffer (FCB), the SETPRT macro instruction is 
used to fetch UCS and FCB images from the image library 
(SYSl. IMAGELIB) and load them into their respective buffers. 
Note that FCB images for the 3203/3211 and 3800 are not 
compatible. The universal character sets for the 1^03/3203 and 
the character arrangement table modules for the 380(\ are also 
not compatible. 

IBM-supplied UCS images, FCB images, and character arrangement 
table modules are included in SYSl . IMAGELIB at system generation 
time. For impact printers, user-defined character sets and 
forms control images can be added to SYSl . IMAGELIB as described 
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in System—Data Administration . For the 3800» user-defined 
character arrangement table modules^ copy modification modules^ 
FCB modules^ and graphic character modification modules (that 
modify the character set) and library character sets can be 
added to SYSl.IMAGEHB as described in Utilities . The EXLST 
parameter of the DCB macro instruction can be used to specify 
the address of an FCB module in storage. 

For the 1A03 and 3211 » if the specified UCS or FCB image cannot 
be found in SYSl . IMAGELIB or the DCB exit list» the system 
operator is asked to specify a replacement name and can 
therefore override an error made by the program. For the 3800, 
the SETPRT routines never ask the operator to replace or 
respecify a parameter from the SETPRT macro» and SETPRT 
processing is terminated. 

Mhen BSAM is being used> all write operations must be checked 
for completion before the SETPRT macro instruction is issued; 
any incomplete write operations are purged. Issuing the SETPRT 
macro instruction for a device other than an on-line UCS printer 
or the 3800 Printing Subsystem results in an error return code. 

The standard form of the SETPRT macro instruction is written as 
follows (the list and execute forms are shown following the 
standard form) t 





SETPRT 








CBURSTsCNlY}] 






I .CHARSsfnamel A(address) IR(reaister ID 






CtCns»fnelA( address) 1 






R(reaisterl}». . . )13 






t .COPlES=number 3 






£.COPYNR=numberl 






C . DISP= I SCHEDULE 1 NOSCHEDULE 1 EXTERNAL 1 






I. FCBsCimaaeidlA( address ) IRIreaister)> 






C ({imaaeidlAt address 1 1 






R(j:£fli^±£i:)}»{V|AJ)}J 






CFLASHsCn^ff?} 






{ ( C nsmfi 3 > £fiuji± ) > 3 






[,INIT=£MlY33 






t , LIBDCBsdcbaddress3 






I , MOD 1 F Y = { C cams 1 A ( aidJifiss ) 1 R ( rfiflisific ) > 






t ((namelAladdress) 1 






R( reqister )} t trc)} 3 






[ f HS6AREA=9.ijd££ss 3 






I,OPTCD={BiU} 






{({B|U},{F|U>)}3 






1,PRTMSG=CNIY3 






C»REXNZT={tj|Y>3 






t,UCSs{£5£} 






C{£S£»£F|F,V|VJ)33 



debaddr — A-Type Address or (2-12) 

The debaddr operand specifies the address of the data 
control block for the data set to be printed; the data set 
must be opened for output before, the SETPRT macro 
instruction is issued. 

BURSTs{lifY> 

The BURST operand specifies whether the paper output is to 
be burst. BURST=Y indicates that the printed output is to 
be burst into separate sheets and stacked. BURST=N 
indicates that the printed output is to go into the 
continuous forms stacker. If BURST is not specified/ the 
SETPRT routine assumes BURST=N. If bursting is requested^ 
the printed output is threaded into the burster-trimmer- 
stacker. Otherwise/ the printed output is threaded into the 
continuous forms stacker. The operand causes a message to 
be printed at the system console telling the operator to 
thread the paper again if needed. This operand is valid 
for the 3800 printer only. 
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CHARS=€najna i A( address I R( rgqig^;gr )> 

i C Cnaiafi I A( a ddr ess ) I Rt reqigtcr II » . * * )1 
The CHARS operand specifies one to four character 
arrangement tables to be used when printing a data set. 
This operand is valid for the 3800 printer only. 

DSHQA 

is the last four characters of the S-byte member name 
for a charecter arrangement table, module. For 
information on the modules available^ see IBM 3800 
Printing Subsystem Programmer's Guide. 

AC address I 

specifies an in-storage address of the user-provided 
character arrangement table module. For information 
on the format of the module^ see Utilities . 

RC register I 

specifies the register that contains an in-storage 
address of the user-provided character arrangement 
table module. For information on the format of the 
module, see Utilities. 

COPXESsnufflb£C 

specifies the total number of copies of each page of the 
data set that is to be printed (from 1 to 255) before going 
to the next page. If the COPIES operand is omitted, one 
copy of each page is printed. This operand is valid for 
the 3800 printer only. 

DZSPsCSCHEDULE I NOSCHEDULE i EXTERNAL ! 

DISP allows you to control how JES disposes of the data 
that is created before the SETPRT request. This parameter 
is valid only for SYSOUT data sets and is ignored for the 
direct user who issues SETPRT. You may abbreviate the 
parameters to S, and E, respectively. This operand is 
valid for the 3800 printer only. 

SCHEDULE 

specifies that JES is to schedule the previous data 
for printing immediately. 

KOSCHEDULE 

specifies that JES is to separate the data into a 
separate JES data set and to schedule the previous 
data Set for printing after the job terminates. 

specifies that the schedule of the data set for 
printing is determined by the JCL parameter 
FREE-CLOSE. FREE-CLOSE is the same as specifying 
DISP-SCHEDULE. The absence of FREE»CL0SE in the JCL 
is the same as coding DISP^NOSCHEDULE on the SETPRT 
macro. EXTERNAL is the default. 

FCB=Cimgqeid i A(addr??5 ) I RC rgqister )> 

C(CimageidlA(addressliR(register»,fVlA:i» 
The FOB operand specifies that the forms control buffer 
(FCB) is to be selected from the image library. Hhen the 
FCB operand is specified, the OPTCD operand can also be 
specified. The possible specifications aret 

iinaqeid 

specifies the forms control image to be loaded. A 
forms control image is identified by a 1- to 
^-character name. IBM-supplied 3211 format images are 
identified by imageid value of STDl and STD2; 
user-designed forms control images are defined by the 
installation. For descriptions of the standard forms 
control images for the 3203 and 3211, see System— Data 
Administration . For more information about 3800 FCB 
modules, see Utilities. 
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A(addrgss) 

The address subparameter specifies an in-storage 
address of the user^supplied forms control buffer 
module to be used. (For information on the format of 
the module* see Utilities . ) This subparameter is 
valid for the 3800 Model 1 printer only. 

register) 

The register subparameter specifies the register that 
contains an in~storage address of the user-provided 
forms control buffer module to be used when printing a 
data set. (For information on the format of the 
module* see Utilities . ) This subparameter is valid 
for the 3800 Model 1 printer only. 

V or VERIFY 

requests that the forms control image be displayed on 
the printer for visual verification. This operand 
allows forms verification and alignment using the MTOR 
macro instruction. 

A or ALIGN 

allows forms alignment using the NTOR macro 
instruction. This subparameter will be ignored if 
specified for the 3800 printer. 

FLASHsCnaiael 

The FLASH operand identifies the forms overlay frame to be 
used. Unless REXMIT^Y is coded and the forms overlay frame 
is still in use from the previous SETPRT macro issuance* a 
message tells the operator to insert this forms overlay 
frame into the printer. This operand also enables you to 
specify the number of copies on which the overlay is to be 
printed (flashed). If this operand is omitted* flashing 
ceases. This operand is valid for the 3800 printer only. 

name 

is the 1- to 4-character name of the forms overlay 
frame . 



indicates the total number (0 to 255) of copies of 
each page of the data set on which the overlay will be 
printed* beginning with the first copy. The number of 
copies printed will not be greater than the number of 
copies specified by the COPIES operand. No copies 
will be flashed if the count of zero is specified. If 
a nonzero count is specified and the name of the forms 
overlay frame is omitted* the operator will not be 
requested to insert a frame. Whatever frame is 
inserted will be used. 

IN1T={MIY} 

INIT=Y will initialize the control information in the 3800 
printer with a folded character arrangement table* the 
10-pitch Gothic character set (12 pitch for the 3800 Model 
3)* and a six lines per inch FCB corresponding to the forms 
size in the printer. COPIES and COPYNR will be initialized 
to 1* FLASH and MODIFY will be initialized to none* and 
BURST will be initialized to N (continuous forms). For 
INIT=N* all control information for the 3800 printer will 
remain unchanged. Any parameters included on the same 
macro statement as the INIT operand will be processed after 
printer initialization has been completed. This operand is 
valid for the 3800 printer only. 

LIBDCBs dcbaddress — A-Type Address or (2-12) 

dcbaddress is the address of an authorized user library DOB 
that has been opened* and that you want to use instead of 
SYSl.INAGELIB. If LIBDCB is not specified* SYSl . IMAGELIB 
is used. This operand is valid with 3800 Model 1 only. 
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Note: This is for the user with direct control of the 3800 
Model 1. 

MODlFYsCnamal A(asi!di:asa) I R( rgqistgp )> 

CtCnamalAladdrQ^s) 1 Reregister )>»±i:£n 
The MODIFY operand identifies the copy modification module 
and an associated character arrangement table module to be 
used when modifying the data to be printed. This operand 
is valid for the 3800 Model 1 printer only. 

n^mg 

A 1- to ^-character name of the copy modification 
module stored in SYSl . IMAGELIB . These one to four 
characters are the last characters of the 8-byte 
member name of a copy modification module in 
SYSl. IMAGELIB. 

A(addregs) 

The address subparameter specifies an in-storage 
address of the user-supplied copy modification module. 
This subparameter is valid for the 3800 Model 1 
printer only. For information on the format of the 
module* see Vtilities» 

RC register 1 

The register subparameter specifies a register that 
contains an in-storage address of the user-provided 
copy modification module. This subparameter is valid 
for the 3800 Model 1 printer only. For information on 
the format of the module^ see Utilities . 

±C£ 

specifies the table reference character used to select 
one of the character arrangement table modules to be 
used for the copy modification text. The values of 0# 
1^ Zf and 3 correspond to the order in which the 
module names have been specified in the CHARS operand. 
If trc is not included^ the first character 
arrangement table module (0) is assumed. 

MSGAREAs a ddr ess — A-Type Address or C2-12) 

address is the address of the message feedback area. This 
area is used to transfer message text between the SETPRT 
macro and the caller. You must allow at least 80 bytes for 
the message text plus 10 bytes for prefix information or a 
total length of at least 95 bytes. The message is 
truncated if it does not fit into the area. This operand 
is valid with 3800 only. The following shows the layout of 
the message areat 

bytes 0-1: total length 

bytes 2-5 8 reserved 
bytes 6-7 t text length 

bytes 8-9: reserved 
bytes 10-variablet message text 

0PTCDs{6|U} 

C(CB|UJ,CF|U})J 

The OPTCD operand specifies whether printer data checks are 
blocked or unblocked and if the printer is to operate in 
fold or normal mode. The possible specifications aret 



B 



specifies that printer data checks are blocked; this 
option updates the DCBOPTCD field of the data control 
block. 



specifies that printer data checks are unblocked; this 
option updates the DCBOPTCD field of the data control 
block. 
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F or FOLD 

specifies that printing is in fold mode. This 
subparameter is ignored if specified for the 1^05 or 
3800 printer. For 1403 fold mode» use fold option 
under the UCS operand. 

U or UNFOLD 

specifies that printing is in normal mode; . this 
operand causes fold mode to revert to normal mode. 
This subparameter will be ignored if specified for the 
1403 or 3800 printer. 

PRTMSG=£N|Y} 

PRTMSG allows printer error messages to be printed for the 
programmer on the 3800. This operand is valid with 3800 
only. 

N 

specifies not to print error messages on the 3800. 



specifies to print error messages on the 3800. Y is 
the default. 

REXMIT=CMIY> 

The specification of REXMIT=Y allows modification of the 
starting copy number (COPYNR)f the number of copies of the 
pages in a data set to be printed (COPIES) » the forms 
overlay frame to be used (FLASH) » and the number of copies 
to be printed (FLASH) without changing the other control 
information already set up in the printer. The SETPRT SVC 
will ignore all other parameters in the parameter list. 

C(£S£fCF|F,V|VJ)> 
The UCS operand specifies that the UCS buffer is to be 
loaded from the image library. Nhen the UCS operand is 
specified, the FCB and OPTCD operands can also be 
specified. This operand will be ignored if specified for 
the 3800 printer. The possible specifications are: 

esc (character set code) 

The CSC operand specifies the character set selected. 
A character set is identified by a 1- to 4-character 
code. Codes for standard IBM character sets are as 
follows: 

1403 or 3203 Printer: AN, HN, PCAN, PCHNf PN» QN» QNC» 
RN, SH, JH, XU, and YN 

3211 Printer: All» Hll, 611, Pll, and Til 

For descriptions of the standard IBM character sets, 
see $vstem Generation ; codes for user-designed 
character sets are defined by the installation. For 
information on adding usei — defined entries to an image 
tables see SYS'tefn-Pata Admanistratign* 

F or FOLD 

specifies that the character set image selected is to 
be in fold mode. The fold mode translates the EBCDIC 
code for lowercase characters to the EBCDIC code for 
the corresponding uppercase characters. 

V or VERIFY 

requests that the character set image be displayed on 
the printer for visual verification. 
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RETURN CODES 

After the SETPRT macro instruction is executed* a return code is 
placed in register 15» and control is returned to the 
instruction following the SETPRT macro instruction. The 
illustration below shows how the four bytes of register 15 are 
used for a specific printer. 



Byte 


0 


1 


2 


3 




Unused 


3800 Code 
Other than 
FCB 


FCB Code 


UCS Code 


Bit ( 


) 7 


8 15 


16 23 


24 31 



The return codes in the figures that follow are in hexadecimal. 

• Return codes 0 through 14 apply to a specific printer. 

• Return codes 18 through 24 apply to all printers. 

• Return codes 28 through 50 apply to the 3800 printer only. 

Figure 1 shows the hexadecimal return codes 00 through 14 for 

specific printers. An *XX' in the columns labeled *3800 Code 

Other than FCB* or 'FCB Code* ' means that a nonzero code may be 
in that byte. 



3800 Code 
Other than 
FCB 

(Byte 1) 


FCB Code 
(Byte 2) 


UCS Code 
(Byte 3) 


Meaning 


00 


00 


00 


Successful completion. 


00 


XX 


04 


The operator canceled the UCS request for the 
following reason: 

• The UCS image could not be found in 
SYSl.IMAGELIB. 


00 


04 


XX 


For non'-'3800 printers* the operator cancieled 
the FCB load operation for one of the 
following reasons) 

• The form could not be aligned to match 
the buffer. 

• The FCB module could not be found in 
SYSl.IMAGELIB or the user's DCB exit 
list. 

For a 3800* the specified FCB module could 
not be found in SYSl.IMAGELIB* a user 
library* or the DCB exit list* and SETPRT 
processing was terminated. 



Figure 1 (Part 1 of 3). SETPRT Return Codes for Specific Printers 
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Other than 
FCB 

(Byte 1) 


FCB Code 
(Byte 2) 


UCS code 
(Byte 3) 


Meaning 


04 


00 


00 


The 3800 SETPRT processing was suspended for 
one of the following reasons: 

• A character arrangement table module 
could not be found in SYSl . IMAGELIB or a 
user library. 

• A copy modification module could not be 
found in SYSl . IMAGELIB or a user library. 

• A graphic character modification module 
(required by a character arrangement 
table module) could not be found in 
SYSl. IMAGELIB or a user library. 

• A library character set module could not 
be found in SYSl . IMAGELIB or a user 
library. 

isegisxer u conxams a reason coae laenxjiTying 
which of the above conditions occurred. 

For an explanation^ see Figure 3 on page 157. 


00 


XX 


08 


A permanent I/O error was detected when the 
BLDL macro instruction was issued to locate a 
UCS image in SYSl . IMAGELIB . 


00 


uo 


AA 


f\ penfMa neri V w en nop v*os 06 w6cxew wnen v.ne 

BLDL macro instruction was issued to locate 
an FCB module in SYSl . IMAGELIB or a user 
library. 


08 


00 


00 


A permanent I/O error was detected when the 
BLDL macro instruction was issued to locate 
one of the following modules in SYSl . IMAGELIB 
or a user library. 

• A character arrangement table module 

• A copy modification module 

• A graphic character modification module 

• A library character set module 

i\egisxer u conxains a reason cdqc laenxiTyang 
which of the above conditions occurred. 

ror an exp^iBnaxiony see rjigure o on page xs/ . 


00 


XX 


00 


A permanent I/O error was detected while 
loading the printer's UCS buffer. 


00 


00 


XX 


A permanent I/O error was detected during 
forms positioning or while loading the 
printer's FCB buffer. 

Reaifi^Ar 0 contains a r^a^on eor^e i rJen'^i 'fvi rta 

which of the above conditions occurred. 

For an explanation* see Figure 3 on page 157. 



Figure 1 (Part 2 of 3). SETPRT Return Codes for Specific Printers 
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3800 Code 
Other than 
FCB 

(Byte 1) 


FCB Code 
(Byte 2) 


UCS Code 
(Byte 3) 


Meaning 


DC 


00 


00 


A permanent I/O error was detected while 
loading one of the followingt 

• Character arrangement table 

• Copy modification record 

• Starting copy number 

• Graphic character modification record 

• Forms overlay sequence control record 
(copy counts and flash counts) 

• Writable character generation module 
(NCGN) 

• Library character set (3800 only) 

Register 0 contains a reason code identifying 
which of the above conditions occurred. 

For an explanation* see Figure 3 on page 157. 


00 


XX 


10 


A permanent I/O error was detected when an 
attempt was made to display the character set 
image on the printer for visual verification. 


00 


10 


XX 


A permanent I/O error was detected when an 
attempt was made to display the forms control 
image on the printer for visual verification. 


00 


XX 


14 


The operator canceled the UCS request because 
an improper character set image was displayed 
for visual verification. 


00 


14 


XX 


The operator canceled the FCB request because 
an improper forms control image was displayed 
for visual verification. 



Figure 1 (Part 3 of 3). SETPRT Return Codes for Specific Printers 



The illustration below shows how the four bytes of register 15 
are used for all printers. 



0 


1 


2 


3 


Unused 


Unused 


Unused 


General 








Code 



Bit 0 7 8 15 16 23 24 31 



Figure 2 shows the hexadecimal return codes 18 through 24 for 
all printers. 



154 MVS/XA Data Administrationi Macro Instruction Reference 



SETPRT 



Return 
Code 
(Byte 3) 


Meaning 


18 


No operation was performed for one of the 
following reasons: 

• The data control block was not open 

• The data control block was not valid for a 
sequential data set. 

• The SETPRT parameter list was not valid 

• The output device was not a UCS or 3800 
printer 


IC 


No operation was performed because an 
uncorrectable error occurred in a previously 
initiated output operation. The error analysis 
(SYNAD) routine is entered when the next PUT or 
CHECK macro instruction is issued. 

No operation was performed because an 
uncorrectable error occurred when the block data 
check or the reset block data check command was 
issued by SETPRT. 

For a 3800^ message 1EC173I will indicate which 
of the above errors has occurred. 

Register 0 contains a reason code identifying 
whether or not data was lost. For an 
explanation^ see Figure 4 on page 157. 


20 


Not enough space has been provided for the 
SYSl . IMAGELIB or a user library control blocks. 


24 


SYSl.IMAGELIB (or, for the 3800, a user library) 
cannot be opened to load the specified module. 


28 


The operator canceled the forms overlay request. 


2C 


The operator canceled the paper threading 
request . 


30 


There are more writable character generation 
modules (WCGMs) requested than there are 
writable buffers installed on the printer. 


34 


There was an invalid table reference character 
for copy modification. 


38 


An error occurred when attempting to execute the 
initialize printer command. 


3C 


Bursting was requested but the 

Burster-Trimmer-Stacker feature is not installed 
on the printer. 


40 


A permanent I/O error occurred while executing a 
sense, final select character arrangement table 
command, or display status code. 


44 


The translate table character arrangement table 
entry references a character set that is not in 
the image library. 



Figure 2 (Part 1 of 2). SETPRT Return Codes for All Printers 
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Return 
Code 
(Byte 3} 


Meaning 


48 


Data was lost because of one of the following 
C3800 only)t 

• 3800 system restart after a paper jam 

• Cancel key 

• Lost resources after paper jam 


40 


A load check was detected while loading one of 
the following (3800 only): 

• Forms control buffer (FOB) 

• Character arrangement table (CAT) 

• Graphic arrangement table (GCM) 

• Copy modification record 

• Hritable character generation module (HCGN) 

• Library character set (LCS) 

Register 0 contains a reason code identifying 
which of the above conditions occurred. 

For an explanation/ see Figure 3 on page 157. 


50 


When a SETPRT was issued to a SYSOUT data set, 
there was a failure in one of the following 
(3800 only)t 

• The subsystem interface (SSI) for OPEN or 
CLOSE 

• Data set segmentation 

• Queue manager issuing I/O to read the JFCB 
and/or the JFCBE 

• ENQ failure 

• More than one DCB is open for the SYSOUT 
data set 



Figure 2 (Part 2 of 2). SETPRT Return Codes for All Printers 
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IBM 3800 MODELS 1 AND 3 

These reason codes> returned in register for the 3800 Models 
1 and 5 printers are in addition to completion codes Q^, 08» OC^ 
and 4C returned in register 15. 

The following illustration shows the contents of register 0, 
which includes the 6CM IDy the CAT ID^ and the reason code. 



Byte 0 1 2 3 



Unused 


6CM ID 


CAT ID 


Reason 








Code 



Bit 0 7 8 15 16 23 24 31 



Figure 3 shows the hexadecimal reason codes for the IBM 3800 
Model 1 and the IBM 3800 Model 3 in compatibility mode. 



GCM ZD 
(Byte 1) 


CAT ZD 
(Byte 2) 


Reason Code 
(Byte 3) 


Meaning 


00 


01-04 


04 


Character arrangement 
table module/record 


00 


00 


08 


Copy modification 
module/record 


00 


00 


00 


Starting copy number 


01-04 


01-04 


10 


Graphic character 

modification 

module/record 


00 


00 


14 


Forms overlay sequence 
control record 


00 


00 


18 


Library character set 


00 


00 


IC 


Hritable character 
generation module (WCGM) 


00 


00 


20 


Forms control buffer 
module 



Figure 3. Reason Codes for IBM 3800 Models 1 and 3 Printers 
(GCM ID and CAT ID) 



Figure 4 shows the reason codes in addition to return code IC 
returned in register 15. The reason code is placed in byte 3 of 
register 0. Bytes 0 through 2 are reserved. 



Reason Code 
(Byte 3) 


1 ' " 

Meaning 


00 


Indicates no data lost. 


04 


Indicates data has been lost. 



Figure 4. Reason Codes for All Printers (Bytes 0 through 2 
Reserved) 
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Figure 5 on page 158 shows the reason codes in addition to 
return code 48 returned in register 15. The reason code is 
placed in byte 3 of register 0. Bytes 0 through 2 are reserved. 



Reason Code 
(Byte 3) 


Meaning 


04 


A paper jam caused a restart. A possible lost 
data condition was detected. 


08 


The cancel key was pressed. 


OC 


Resources were lost after a paper jam. 


Figure 5. Reason Codes for IBM 3800 Models 1 and 3 Printers 
(Bytes 0 through 2 Reserved) 

Figure 6 shows the reason codes in addition to return code 50 
returned in register 15. The reason code is placed in byte 3 of 
register 0. Bytes 0 through 2 are reserved. 


Reason Code 
(Byte 31 


Meaning 


04 


An invalid SETPRT request for a SYSOUT data 
segment was specified. An in-storage address 
was used for a copymod, character arrangement 
table, FCB/ or user library DCB. Only 3800 
load module IDs in SYSl . IMAGELIB are allowed 
for SYSOUT setup for 3800. 

If Direct Attach (a directly allocated 3800 
Model 3 or Model 8 printer) is active, data 
management treats the device specified by the 
UNIT parameter as a SYSOUT data set. 


08 


During SETPRT processing for a SYSOUT data 
segment, an error was detected while 
attempting to read a JFCB or JFCBE control 
block from SNA 


OC 


During SETPRT processing for a SYSOUT data 
segment, an error was detected while invoking 
the CLOSE subsystem interface (SSI) for the 
previous data segment 


10 


During SETPRT processing for a SYSOUT data 
segment, an error was detected while invoking 
the OPEN subsystem interface (SSI) for the new 
data segment being created 


1^ 


During SETPRT processing for a SYSOUT data 
segment, an error was detected while the 
scheduler spool file allocation routine was 
segmenting the data set 


18 


An ENQ macro failed. The ENQ was issued by 
SETPRT processing. 


IC 


More than one DCB is open for the SYSOUT data 
set . 



Figure 6. Reason Codes for IBM 3800 Models 1 and 3 Printers 
(Bytes 0 through 2 Reserved) 
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gETPRT— LI$T FORM 



The list form of the SETPRT macro instruction is used to 
construct a data management parameter list. 

The description of the standard form of the SETPRT macro 
instruction provides the explanation of the function- of each 
operand. The format description below indicates the optional 
and required operands for the list form only. The dcbaddr 
parameter must appear in the list or execute form of the SETPRT 
macro. 

The list form of the SETPRT macro instruction is written as 
f ollowsi 





SETPRT 


Edcbaddr] 




[tBURST={NlY^] 

[»CHARS={Cn9ne> 






{(namet ...)}] 
C •COPIES=numberl 










t,C0PYNR=mimber3 






I . DISPs t SCHEDULE 1 NOSCHEDULE 1 EXTERNAL 3 






CFCBsCim^q^idJ 






C(ijnaa£ijd>tV|A3)31 






l,FLASH={naj]is> 












CrINITsCMlY}] 






I.LIBDCB=dcbaddress3 






t,MODIFY={n^fn§> 






C (narn«»±!:i£)}3 






[ , MSGAREA=address3 






[,OPTCI)={BiU} 






C({B|U>,{F|U3)}3 






I,PRTHSG=tN|y3 






C,REXHITs{NIY}3 






t,UCS={£S(i> 






{(£S£,{FiF»ViV})}3 






>MFsL 



dcbaddr — A-Type Address 
BURST={MIY3 

is coded as shown in the standard form of the macro 
instruction. 

CHARS={naJ!!fi> 

{ ( name * . • • )} 

is coded as shown in the standard form of the macro 
instruction^ except for the A( address ) and R( reaister ) 
parameters^ which cannot be specified. 

COPIES= number 

is coded as shown in the standard form of the macro 
instruction. 

COPYNRs number 

is coded as shown in the standard form of the macro 
instruction. 

DXSPsCSCHEDULE I NOSCHEDULE i EXT I g RNA k> 

is coded as shown in the standard form of the macro 
instruction. 

FCB=Ciff?qeid} 

CCjjnasfiiji»CV|A>)> 
is coded as shown in the standard form of the macro 
instruction, except for the A( address ) and R(reoister) 
parameters, which cannot be specified. 
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FLASHsCnsiOfl} 

is coded as shown in the standard form of the macro 
instruction. 

XNITsCMIYJ 

is coded as shown in the standard form of the macro 
instruction. 

LIBDCBs dcbaddress — A-Type Address or (2-12) 

is coded as shown in the standard form of the macro 
instruction. 

MODXFYsCnaiM} 

is coded as shown in the standard form of the macro 
instruction, except for the A(arf^rgss) and Rljc&flisific) 
parameters, which cannot be specified. 

NSGAREAsa^dCfiSS— A-Type Address or (2-12) 

is coded as shown in the standard form of the macro 
instruction. 

OPTCDs{BiU} 

{(CB|U},{F|U})> 
is coded as shown in the standard form of the macro 
instruction. 

PRTNSGsCNiY} 

is coded as shown in the standard form of the macro 
instruction. 

REXHZTsCtilY} 

is coded as shown in the standard form of the macro 
instruction. 

UCSaCcsc> 

{t£S£,CF|F,V|V})3 
is coded as shown in the standard form of the macro 
instruction. 

NFSL 

specifies that the list form of the macro instruction is 
used to create a parameter list that can be referenced by 
an execute form of the SETPRT macro instruction. 
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gETPRT— EXEWTE FQRN 



A remote data management parameter list is referred to, 
be modified by^ the execute form of the SETPRT macro 
instruction. 



and can 



The description of the standard form of the SETPRT macro 
instruction provides the explanation of the function of each 
operand. The format description below indicates the optional 
and required operands for the execute form only. The dcbaddr 
parameter must be specified in the list or execute form of the 
SETPRT macro. 

The execute form of the SETPRT macro instruction is written as 
follows: 



SETPRT 



[ dcbadd r] 
C»BURSTs{tilY|K}] 

[ . CHARSst name I A( address 1 1 R( register » 

{({naBifilA(addrgffg)|Rtreqlg-ter)}»« » » 

t > C 0 P I E s s { mimhftE I K } 3 
t , COPYNRsCrmrnhfei: I « J 3 

[»DXSP=[SCHEDULEiNOSi 



l,FLASH=Cn2jns} 

C(Ciiamfi3>£AUini)} 
{«>3 

t,INIT=£MlY}3 
I,LlBDCB=dcbqddregs3 

[ »MODIFY=f nametAC address nRtreaister n 

{(tnametAtaddressl I Reregister )>,trc> 
C«>3 

I,MSGAREA=add££Ss3 
[»OPTCD={B|U} 

{(CBiu>,{Fiu} 

C,PRTMSG=tNIY3 

l,REXMIT={IilY|«J3 

t,UCS=C£S£} 

C(£S£f{F|F,V!V>)J3 



dcbaddr — RX"Type Address or (2-12) 

BURST={liiYi»> 

is coded as shown in the standard form of the macro 
instruction^ except for the X subparameter» which can be 
used only when INIT-Y is specified in the execute form of 
the SETPRT macro instruction. Hhen BURST-x is coded^ the 
BURST field in the parameter list remains as it was 
previously set. This operand is valid for the 3800 printer 
only. 

CHARSgCcam^l ACaddrggg 3 1 R( rgqister )> 

{({joamalAtaddregg) (RCreqigter 3> 
M 

is coded as shown in the standard form of the macro 
instruction^ except for the X subparameter^ which can be 
used only when INIT-Y is specified in the execute form of 
the SETPRT macro instruction. Mhen CHARS=X is coded/ the 
CHARS field in the parameter list remains as it was 
previously set. 

C0PiES={nyinfafi£lxJ 

is coded as shown in the standard form of the macro 
instruction » except for the X subparameter> which can be 
used only when INIT-Y is specified in the execute form of 
the SETPRT macro instruction. Hhen COPIES-x is coded, the 
COPIES field in the parameter list remains as it was 
previously set. 
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COPYNRsCimmtiacI*} 

is coded as shown in the standard form of the macro 
instruction* except for the X subparameter* which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When COPYNR=» is coded* the 
COPYNR field in the parameter list remains as it was 
previously set. 

DZSPs{ SCHEDULE i NQSCHFDULE I EXTERNAL l 

is coded as shown in the standard form of the macro 
instruction. 

FCBsf imaqeid lAC address ) I Re register )3 

W 

is coded as shown in the standard form of the macro 
instruction* except for the x subparameter* which can be 
used only when INIT^Y is specified in the execute form of 
the SETPRT macro instruction. Hhen FCB-X is coded* the FCB 
field in the parameter list remains as it was previously 
set. 

FLASHsCnamsJ 

{( Cnams]»£2im±)} 
{»} 

is coded as shown in the standard form of the macro 
instruction* except for the X subparameter* which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. Nhen FLASH^X is coded* the 
FLASH field in the parameter list remains as it was 
previously set. 

INITs{MlY> 

is coded as shown in the standard form of the macro 
instruction. Hhen INIT=Y is specified on the execute form 
of the SETPRT macro instruction* all 3800 fields in the 
parameter list (BURST* CHARS, COPIES* COPYNR* FCB, FLASH, 
MODIFY* and REXMIT) will be reset to binary zeros unless a 
specified field is preserved by coding keyword parameter=X 
or changed by specifying a valid subparameter for the 
keyword parameter as described in the standard form of the 
macro instruction. 

LIBDCBs dcbaddress — A-Type Address or (2-12) 

is coded as shown in the standard form of the macro 
instruction. 

MODIFYstname I A( address ) I R( register )1 

C ({pamalACa^iidrgss) i R( rgqister )}»tpc)> 
{»> 

is coded as shown in the standard form of the macro 
instruction* except for the X subparameter* which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When MODIFY=x is coded* the 
MODIFY field in the parameter list remains as it was 
previously set. 

MSGAREA saddress — A-Type Address or (2-12) 

is coded as shown in the standard form of the macro 
instruction. 

OPTCDsCBlU} 

C({B|U},{F|U})1 
is coded as shown in the standard form of the macro 
instruction. 

PRTHS6SCNIY1 

is coded as shown in the standard form of the macro 
instruction. 

is coded as shown in the standard form of the macro 
instruction. 
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REXMITsCtJlYlK} 

is coded as shown in the standard form of the macro 
instruction^ except for the x subparameter» which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When REXMIT=x is coded, the 
REXMIT field in the parameter list remains as it was 
previously set. 

UCSsC£S£} 

C(£S£»CF|F,V|V})J 
is coded as shown in the standard form of the macro 
instruction. 

HFs(E>tdata management list address! (Ill ) 

specifies that the execute form of the SETPRT macro 
instruction is used, and an existing data management 
parameter list is used. 

E — Coded as shown 

data management list address — RX-Type Address, (2-12), 
or (1) 
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STOW— UPDATE PARTITIONED DATA SET DIRECTORY CBPAHl 



The STOH macro instruction causes the system to update a 
partitioned data set directory by adding* changing* replacing* 
or deleting an entry in the directory. Only one entry can be 
updated at a time using the SIGN macro instruction. If the 
entry to be added or replaced is a member name* the system 
writes an end-of-data indication following the member. All 
input/output operations using the same data control block must 
have previously been tested for completion. 

The STON macro is written t 





STOW 


address 






address 












l.^%rsc±ory actiontAlClDlRll 



deb address — RX-Type Address* (2-12)* or (1) 

The deb address operand specifies the address of the data 
control block for the opened partitioned data set. The 
STOW macro instruction can be used only when the data set 
is opened for OUTPUT* UPDAT or OUTIN (BSAM). 

list address— RX-Tvpe Address* C2-12)* or (0) 

The list address operand specifies the address of the area 
containing the information required by the system to 
maintain the partitioned data set directory. The size and 
format of the area depend on the directory action requested 
as follows: 

Adding or Replacing a Directory Entry: The list address 
operand must specify an area at least 12 bytes long and 
beginning on a halfword boundary. The following 
illustration shows the format of the areat 



List Address 



Length 





NAME 


TTR 


C 


USER DATA ^ 



Bytes 8 3 I 0 to 62 



NAME: Specifies the member name or alias being added or 
replaced. The name must begin in the first byte of the 
field and be padded on the right with blanks* if necessary* 
to complete the 8-byte field. 

TT: Specifies the relative track number where the beginning 
of the data set is located. 

R: Specifies the relative block (record) number on the 
track identified by TT. 

Note: The TTR field shown above must be supplied by the 
problem program if an alias (alias bit is 1) is being added 
or replaced. The system supplies the TTR field when a 
member name is being added or replaced. 
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C: Specifies the type of entry (member or alias) for the 
name, the number of note list fields (TTRNs)» and the 
length in halfwords, of the user data field. The following 
describes the meaning of the 8 bitst 

Bit Meaning 

0=0 Indicates a member name. 

0=1 Indicates an alias. 

1 and 2 Indicate the number of TTRN fields (maximum of 3) 
in the user data field. 

3-7 Indicate the total number of ha If words in the user 

data field. 

Deleting a Directory Entry: The list address operand must 
specify an 8-byte area that contains the member name or 
alias to be deleted. The name must begin in the first byte 
of the area and be padded on the right with blanks^ if 
necessary, to complete the 8 bytes. 

Changing the Name of a Member: The list address operand 
must specify the address of a 16-byte area; the first 8 
bytes contain the old member name or alias, and the second 
8 bytes contain the new member name or alias. Both names 
must begin in the first byte of their 8-byte area and be 
padded on the right with blanks, if necessary, to complete 
the 8-byte field. 

directory action — Cdef . A|C|D|R] 

If the directory action operand is not coded, A (add an 
entry) is the default. The operand is coded as shown to 
specify the type of directory action: 

A 

specifies that an entry is to be added to the 
directory. 

C 

specifies that the name of an existing member or alias 
is to be changed. 

D 

specifies that an existing directory entry is to be 
deleted. 

R 

specifies that an existing directory entry is to be 
replaced by a new directory entry. If R is coded but 
the old entry is not found, the new entry is added to 
the directory and a completion code of X*08* is 
returned in register 15. 



COMPLETION CODES 

Hhen the system returns control to the problem program, register 
15 contains a return code and register 0 contains a reason code 
in the low-order byte; the three high-order bytes of both 
registers are set to 0. 
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The following is a list of return codes contained in register 

15: 



Codes 

Return (15) 



Directory Action 



00 



04 



08 



OC 



10 



14 



18 



The update of 
the directory 
was completed 
successfully. 

The directory 
already 
contains the 
specified name. 



The update of 
the directory 
was completed 
successfully. 



The update of 
the directory 
was completed 
successfully. 



No space left 

in the 
directory. 
The entry 
could not be 
added/ 

replaced/ or 
changed. 

A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
(SYNAD) 
routine. 

The specified 
data control 
block is not 
open or is 
opened for 
input. 

Insufficient 
virtual 
storage was 
available to 
perform the 
STOW function. 



The specified 
name could not 
be found. 

No space left 
in the 
directory. 
The entry 
could not be 
added/ 

replaced/ or 
changed. 

A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
(SYNAD) 
routine. 

The specified 
data control 
block is not 
open or is 
opened for 
input. 

Insufficient 
virtual 
storage was 
available to 
perform the 
STOW function. 



The specified 
name could not 
be found. 



A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
(SYNAD) 
routine. 

The specified 
data control 
block is not 
open or is 
opened for 
input. 

Insufficient 
virtual 
storage was 
available to 
perform the 
STOW function. 



The update of 
the directory 
was completed 
successfully. 

The directory 
already 
contains the 
specified new 
name. 

The specified 
old name could 
not be found. 

No space left 
in the 
directory. 
The entry 
could not be 
added/ 

replaced/ or 
changed. 

A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
(SYNAD) 
routine . 

The specified 
data control 
block is not 
open or is 
opened for 
input. 

Insufficient 
virtual 
storage was 
available to 
perform the 
STOW function. 
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The following is a list of reason codes contained in register 0. 
Reason 

Code (0) Heaning 



00 (X*00') Reason code is not applicable. (Returned with 

all return codes except 10.) 

01 (X*01') All functions; the permanent I/O error occurred 

while reading or writing directory blocks. 

02 (X'02') Add and replace functions; the permanent I/O 

error occurred while EOF mark after the member. 

3383 Error occurred when trying to write an EOF; all 

(X*D37') primary space used. 
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<;VNA DAF— PERFORM SYNAD ANALYSIS FUNCTION (BDAM> BISAM. BPAM. BSAM> EXCP, QISAM> A ND 

The SYNADAF macro instruction is used in an error analysis 
routine to analyze permanent input/output errors. The routine 
can be a SYNAD exit routine specified in a data control block 
for BDAM, BISAM, BPAM, BSAM, QISAM, QSAM, or a routine that is 
entered directly from a program that uses the EXCP macro 
instruction. (The EXCP macro instruction is described in JiaitSL 
Administration g^ide. > 

The SYNADAF macro instruction uses register 1 to return the 
address of a buffer containing a message. The message describes 
the error, and can be printed by a subsequent PUT or NRITE macro 
instruction. The message consists of EBCDIC information and is 
in the form of a variable-length record. The format of the 
message is shown following the descriptions of the SYNADAF 
operands. 

The system does not use the save area whose address is in 
register 13. Instead, it provides a save area for its own use# 
and then makes this area available to the error analysis 
routine. The system returns the address of the new save area in 
register 13 and in the appropriate location (word 3) of the 
previous save area; it also stores the address of the previous 
save area in the appropriate location (word 2) of the new save 
area . 

The SYNADAF macro instruction passes parameters to the system in 
registers 0 and 1. When used in a SYNAD exit routine, the 
SYNADAF macro should be coded at the beginning of the routine. 
(See Data Facility Product: Customization.) For BISAM and 
QISAM, the SYNAD exit routine has to set up these parameters as 
explained under PARMl and PARM2. To save these parameters for 
use by the SYNAD exit routine, the system stores them in a 
parameter save area that follows the message buffer as shown in 
the message buffer format. The system does not alter the return 
address in register 14 or the entry point address in register 
15. 

Hhen a SYNADAF macro instruction is used, a SYNADRLS macro 
instruction must be used to release the message buffer and save 
areas, and to restore the original contents of register 13. 

The SYNADAF macro is written: 





SYNADAF 


ACSMETH={BDAM 






t.PARMlsoarm reaisterl 






t,PARM2=Darm reaisterlJ 






^[^PARMl reaisterJ 












[.PARM2SDarm reaisterll 






CBSAM 






C,PARMl=parm reaisterl 






t.PARM2=Darm reaisterll 






^PpARMI reaisterl 












[,PARM2sparin reqisterlJ 






{BISAM 






t,PARMl=d£feadi£3 






[,PARM2=dcb addressn 






{EXCP 






[,PARMl=igb sd<dre5sn 






{QISAM 






t,PARMl=d<;b9ddr3 






C,PARM2=parm reai^t^rn 



ACSMETH=BDAM» BPAM, BSAM, QSAM, BISAM, EXCP, or QISAH 
specifies the access method used to perform the 
input/output operation for which error analysis is 
performed. 
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PARMlsparm reais-ter* iobaddr* or dcbaddr — (2-12) or (1) 

specifies the address of information that is dependent on 
the access method being used. For 6DAM/ BPAM^ BSAM^ or 
QSAMy the operand specifies a register that contains the 
information that was in register 1 on entry to the SYNAD 
routine. For BISAM or QISAM, it specifies the address of 
the data control block; for EXCP, it specifies the address 
of the input/output block. If the operand is omitted/ 
PARM1=(1) is assumed. 

PARMZsparm rg^istei (2-12)> (O), or RX-Type 

(only if ACSHETHSQISAN) 

specifies the address of additional information that is 
dependent on the access method being used. For BDAM» BPAM/ 
6SAM/ QISAM/ and QSAM> the operand specifies a register 
that contains the information that was in register 0 on 
entry to the SYNAD exit routine. For BISAM, the operand 
specifies a register that contains the information that was 
in register 1 on entry to the SYNAD exit routine (the 
address of the DECB). For EXCP, the operand is meaningless 
and should be omitted. If the operand is omitted/ except 
in the case of EXCP/ PARM2s(0) is assumed. 

Note: To correctly load the registers for SYNADAF for BISAM, 
code these two instructions before issuing the SYNADAF macro: 

LR 0/1 GET DECB ADDRESS 

L 1/S(1) GET DCB ADDRESS 



COMPLETXON CODES 

When the system returns control to the problem program, the 
low-order byte of register 0 contains one of the following 
reason codes; the three high-order bytes of register D are set 
to 0. 

Reason 

Code (0) Heaning 



00 (X*00*) Successful completion. Bytes 8 through 
13 of the message buffer contain 
blanks. 

0^ (X*04*) Successful completion. Bytes 8 through 
13 of the message buffer contain binary 
data . 

08 (X*08*) Unsuccessful completion. The message 

can be printed, but some information is 
missing in bytes 50 through 127 and is 
represented by asterisks. If byte 8 is 
a blank (X*40*)/ bytes 9 through 13 are 
either blanks or are not initialized. 
If byte 8 is not a blank, then data was 
read, and bytes 8 through 13 of the 
message buffer contain binary data. 
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MESSAGE BUFFER FORMAT 



The following illustration shows the format of the message 
buffer; the address of the buffer is returned in register 1 



Messanc bullof 
Byte 0 •» 



L L b b 



I I b b 



Doubleword 
Boundary 

LL= 128; II* 124; hb»000 

50 



Jubnainc 



84 



Operation 
Attempted 



Input : 



Output : 



5"* 




14 >i 



14 



(Blanks) 



91 



Stcpname 



68 



Unit 
Address 



72 



Device 
Type 



75 



DOname 



Error Description 



107 



SO 



84 



Unit Record: 



Mattnetic T.ipu: 



Direct Aeeess; 



Parameter Save Area 



107 


122 


128 








Access 






(Asterisks) 




Method 





107 



Relative Block 
Number (decimal) 



lis 



Access 
Method 



120 



107 



Actual Truck Address and Block Number 
(BBC'CliilK in hexadecimal lurmat) 



1. 


'8 


132 


136 




Parameter 


Parameter 






Register 0 


Register 1 






(PARM21 


(PARMI) 





(Blanks) 



122 



Access 
Method 



128 



128 



(bnd of Buffer- 
- — Beginning of 

Parameter Save Area 



Notes: 

1. The device type field (bytes 72 through 73) contains UR for a unit record 
device^ TA for a magnetic tape device^ or DA for a direct access device. 

2. If a message field (bytes 91 through 105) is not applicable to the type of error 
that occurred, it contains N/A or NOT APPLICABLE. 

3. If no data was transmitted, or if the access method is QISAM, bytes 8 through 13 
contain blanks or binary zeros. 

4. If the access method is BISAM, bytes 68 through 70, 84 through 89, and 107 
through 120 contain asterisks. 

5. If the access method is BDAM, and if the error was an invalid request, bytes 107 
through 120 contain EBCDIC zeros. 

6. The unit address field (bytes 68 through 70) contains the letters 'JES' if the 
data set is SYSIN or SYSOUT. 
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SYNAPRLS— RELEASE SYNADAF BUFFER AND SAVE AREAS IBDAM. BISAM. BPAM , BSAM. EXCP. 

QlgAMf ANP Q$AH> 

The SYNADRLS macro instruction releases the message buffer, 
parameter save area, and register save area provided by a 
SYNADAF macro instruction. It must be used to perform this 
function whenever a SYNADAF macro instruction is used. 

When the SYNADRLS macro instruction is issued, register 13 must 
contain the address of the register save area provided by the 
SYNADAF macro instruction. The control program loads register 
13 with the address of the previous save area, and sets word 3 
of that save area to 0. Thus, when control is returned, the 
save area pointers are the same as before the SYNADAF macro 
instruction was issued. 

The SYNADRLS macro is written? 



[ symbol ! SYNADRLS b 



When the system returns control to the problem program, the 
low-order byte of register 0 contains one of the following 
reason codes; the three high-'order bytes of register 0 are set 
to 0. 

Reason 

Code (0) Meaning 

00 CX*00*) Successful completion. 

08 (X'08*) Unsuccessful completion. The buffer 
and save areas were not released; the 
contents of register 13 remain 
unchanged. Register 13 does not point 
to the save area provided by the ^ 
SYNADAF macro instruction, or this save 
area is not properly chained to the 
previous save area. 
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SYNCDEV— SYNCHRONIZE DEVICE 

The SYNCDEV macro instruction allows you to control data 
synchronization for the IBM 3480 Magnetic Tape Subsystem that 
supports buffered write mode. Data records in the tape control 
unit buffer may not yet be on tape when your program is ready to 
send more. There is no way to determine how much data is left 
in the buffer^ and it is time dependent to tape motion. This 
data is not synchronized to your program; that is, you could 
overlay unwritten data in the buffer^ or lose data when it is 
transferred from the channel if the buffer does not have enough 
space to hold it. You can use the SYNCDEV macro to either: 

• Request information regarding synchronization 

• Demand synchronization if the specified number of data 
blocks are buffered 

If more blocks are« buffered than were specif ied» the system 
stays in control until all the blocks are written to the 
tape or it detects an I/O error. 

If the same amount or fewer blocks are buffered* buffering 
is not affected. 

Note: Demands for synchronization are ignored if the drive is 
in read mode. 

The SYNCDEV macro is written: 





SYNCDEV 


DCB=9ddr 




[ , { ABUFBLK=a ddr I BUFBLK= 






{maximum buffer depthlOlU 






[,INQ={VES|tiQ}l 



The following describes the operands that can be specified for 
SYNCDEV . 

DCBs addr — A-Type address or (2-12) 

specifies the address of the data control block. 

ABUFBLKSaddrlBUFBLKsmaximum buffer d^pthiO 

Specifies the maximum number of data blocks that can be 
buffered. 

ABUFBLK=ajddr — A-Type address or (2-12) 

specifies the address of a halfword on a halfword 
boundary that contains a value that specifies the 
maximum number of data blocks that can be buffered. 

BUFBLKsC maximum buffer depth | Q} 

specifies the maximum number of data blocks that can 
be buffered. This number can be an absolute value 
from 0 to 65535. The BUFBLK value can be in the two 
low-order bytes of a register (2-12). 

H 

If neither ABUFBLK nor BUFBLK is specified, the 
number of data blocks that can be buffered 
defaults to Q, and no data blocks are buffered. 

ZNQs{YES|tifi} 

specifies whether this is a request for information about 
the degree of synchronization or a request for 
synchronization. 

YES 

specifies an inquiry as to how many data blocks are in 
the buffer. 
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specifies a request for synchronization based on the 
number of data blocks that can be buffered as 
specified in ABUFBLK or BUFBLK. 

Register 0 contains the number of buffered physical 
blocks if the previous operation completed 
successfully. 

Note: Do not use this option in 31-'bit residence 
node; it requires a 24-bit addressing mode parameter 
list. 
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SYNCPEV— LIST FORM 

The list form of the SYNCDEV macro is written t 





SYNCDEV 


CDCB=gc|dr] 






C,CBUFBLK=fn9><imMfn bMffer depthlilJJ 






CiNQsCYESlliQ}] 









The following describes the operands that can be specified for 
the list form of SYNCDEV. 

DCB=adsi£""A-Type address 

specifies the address of the data control block. 

BUFBLKsC waximum buffer depth 1 01 

specifies the maximum number of data blocks that can be 
buffered. This number can be an absolute value from 0 to 
65535. If BUFBLK is not specified/ the number of data 
blocks that can be buffered defaults to 0» and no data 
blocks are buffered. 

JI 

If neither ABUFBLK nor BUFBLK is specified^ the number 
of data blocks that can be buffered defaults to 0, and 
no data blocks are buffered. 

INQ=CYESIMQJ 

specifies whether this is a request for information about 
the degree of synchronization or a request for 
synchronization. 

YES 

specifies an inquiry as to how many data blocks are in 
the buffer. 

m 

specifies a request for synchronization based on the 
number of data blocks that can be buffered as 
specified in BUFBLK. 

MF=L 

generates a 24-bit addressing-mode parameter list that 
contains no executable instructions. The list can be used 
as input and can be modified by the execute form of the 
SYNCDEV macro. 

Note: Do not use this option in 31-bit residence mode; it 
requires a 24-bit addressing-mode parameter list. 
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gYNCPgy^EXEgVTE FPRfl ' 

The execute form of the SYNCDEV macro is written: 





SYNCDEV 


[DCB:9<;Jcirl 




[ f {ABUFBLKsaddr IBUFBLK= 






Cmaximum buffer deoth 10111 






t»XNQ={YES|M13}] 






fMFs(E>addr) 



The following describes the operands that can be specified for 
the execute form of SYNCDEV. 

DCB=addn"~A-Type address or (2-12) 

specifies the address of the data control block. 

ABUFBLKsaddr tBUPBLK=f maximum buffer deothlO 

specifies the maximum number of data blocks that can be 
buffered. 

ABUFBLKSfiiilsin — A-Type address or (2-12) 

specifies the address of a halfword on a halfword 
boundary that contains a value that specifies the 
maximum number of data blocks that can be buffered. 

BUFBLKSitiaximum buffer depth | ^ 

specifies the maximum number of data blocks that can 
be buffered. This number can be an absolute value 
from 0 to 65535. The BUFBLK value can be in the two 
low-order bytes of a register (2-12). 

SL 

If neither ABUFBLK nor BUFBLK is specified, the 
number of data blocks that can be buffered 
defaults to 0» and no data blocks are buffered. 

XNQsCYESlbiS} 

specifies whether this is a request for information about 
the degree of synchronization or a request for 
synchronization . 

YES 

specifies an inquiry as to how many data blocks are in 
the buffer, 

m 

specifies a request for synchronization based on the 
number of data blocks that can be buffered as 
specified in ABUFBLK or BUFBLK. 

Register 0 contains the number of buffered physical 
blocks if the previous operation completed 
successfully. 

Note: Do not use this option in 31-bit residence 
mode; it requires a 24-bit addressing mode parameter 
list. 

HFs(E,aidsic) 

specifies the execute form of SYNCDEV. 

a ddr— 'A-Type addresSy RX-Type address r or (2-12) 

specifies the 24-bit addressing-mode address for the 
parameter list. 
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COMPLETION CODES 



Nhen the system returns control to your problem program^ the 
low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason codei 

Return Reason 

Code (15) Code (0) Meaning 



00 


CX» 


00' 


) 








Successful completion. Register 0 
contains the number of data blocks in 
the control unit buffer. 


04 


<X« 


04* 


) 


01 


(X'Ol' 


) 


Incorrect parameter. 






D4> 




02 




\ 


Tnenr^r*Ar*4' DPR nr* a DFUPHK Ai*r*or* 


04 




04' 


) 


03 


<X'03' 


) 


Environmental arrar*. 


04 


<x» 


04' 


) 


04 


(X»04' 


) 


Incorrect input to NOTE. 


04 


(X* 


04' 


) 


05 


CX»05' 


) 


Device does not support buffering. 


04 


cx» 


04' 


) 


11 


(X'OB' 


) 


Unsuccessful call to ESTAE macro. 


04 


(X» 


04' 


) 


12 


(X'OC 


) 


Unsuccessful GETMAIN request. 


08 


(X» 


08' 


) 








Permanent I/O error during read block 
ID or synchronize command. 


12 


(X» 


OC 


) 








Permanent I/O error on the last channel 



program with loss of data. 

Note: If you specified a SYNAD option 
in the DCB and issue a PUT or CHECK 
macro after this error occurs^ your 
program cannot enter the SYNAD routine. 
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TRUNC—TRUN CATE AN OUTPUT BUFFER (QSAM OUTPUT— FIXED- OR VARIABLE- LENGTH BLOCKED 

The TRUNC macro instruction causes the current output buffer to 
be regarded as full. The next PUT or PUTX macro instruction 
specifying the same data control block uses the next buffer to 
hold the logical record. 

Nhen a variable-length spanned record is truncated and logical 
record interface* or extended logical record interface, is 
specified (that is, if BFTEK=A is specified in the DCB macro 
instruction, or if a BUILDRCD macro instruction is issued, or if 
DCBLRECL=OK or nnnnnK is specified), the system segments and 
writes the record before truncating the buffer. Therefore, the 
block being truncated is the one that contains the last segment 
of the spanned record. 

The TRUNC macro instruction is ignored if it is used for 
unblocked records, if it is used when a buffer is full, or if it 
is used without an intervening PUT or PUTX macro instruction. 

The TRUNC macro is written j 



tsiflnhalJ TRUNC 



deb e^Jdrggg 



deb address — RX-Type Address, (2-12>, or (1) 

The deb address operand specifies the address of the data 
control block for the sequential data set opened for 
output. The record format in the data control block must 
not indicate standard blocked records (RECFM=FBS). 
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WAIT—VfAIT FOR ONE OR MORE EVENTS (BDAM. BISAM, BPAM. AND BSAM1 

The NAIT macro instruction is used to inform the control program 
that performance of the active task cannot continue until one or 
more specific events^ each represented by a different ECB (event 
control block)/ have occurred. In the context of this manuals 
the ECBs represent completion of I/O processing associated with 
a READ or HRITE macro. ECBs are located at the beginning of 
access method DECBs (data event control blocks) » so that the 
DECB name provided in READ and WRITE macros is also used for 
NAIT. (A description of the ECB is found in Appendix A> "Status 
Information Following an Input/Output Operation** on page 192. 
For information on when to use the MAIT macros see Dat^ 
Administration Onide. ) 

The control program takes the following action: 

• For each event that has already occurred (each ECB is 
already posted)^ the count of the number of events is 
decreased by 1. 

• If the number of events is 0 by the time the last event 
control block is checked* control is returned to the 
instruction following the NAIT macro instruction. 

• If the number of events is not 0 by the time the last ECB is 
checked* control is not returned to the issuing program 
until sufficient CCBs are posted to bring the number to 0. 
Control is then returned to the instruction following the 
NAIT macro instruction. 

• The events will be posted complete by the system when all 
I/O has been completed* temporary errors have been 
corrected* and length checking has been performed. The DECB 
is not checked for errors or exceptional conditions* nor are 
end-of-volume procedures initiated. Your program must 
perform these operations. 

The NAIT macro is written* 





WAIT 


CpMmber of ?vQnt9J 




{ * ECZ'^dL 1 ECBLISTsasUtnl 
[yL0NG={YESiJji2}] 



nvmbgr of Qv^nts 

specifies a decimal integer from 0 to 255. Zero is an 
effective NOP instruction* 1 is assumed if the operand is 
omitted. The number of events must not exceed the number 
of event control blocks. You may also use register 
notation (2-12). 

ECBs addr 

specifies the address of the event control block (or DECB) 
representing the single event that must occur before 
processing can continue. The operand is valid only if the 
number of events is specified as 1 or is omitted. 

addy 

specify RX type or use register notation (1-'12). 
ECBLIST=aiid£ 

specifies the address of a virtual storage area containing 
one or more consecutive fullwords on a fullword boundary* 
Each fullword contains the address of an event control 
block (or DECB); the high-order bit in the last word 
(address) must be set to 1 to indicate the end of the list. 
The number of event control blocks must be equal to or 
greater than the specified number of events. 
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LONG^EYESltmi 

specifies whether the task is entering a long wait or a 
regular wait. Normally^ I/O events should not be 
considered 'long* unless it is anticipated that operator 
intervention will be required. 

Caution: A job step with all its tasks in a HAIT condition 
terminates upon expiration of the time limits that apply to it. 

Access method ECBs are maintained entirely by the access methods 
and supporting control program facilities. The user may inspect 
access method ECBs» but should never modify them. 
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MRITE--WRITE A BLOCK (BDAMl 

The WRITE macro instruction causes the system to add or replace 
a block in an existing direct data set. (This version of the 
NRITE macro instruction cannot be used to create a direct data 
set because no capacity record facilities are provided.) 
Control may be returned before the block is written. The output 
operation must be tested for completion using a CHECK or HAIT 
macro instruction. A data event control blocks shown in 
Appendix A# "Status Information Following an Input/Output 
Operation** on page 192, is constructed as part of the macro 
expansion. 

The standard form of the MRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form) t 





WRITE 


ci«<;b namt 






»Cgrga addrfigsl S*} 
,£JL£aathrs'} 




















rblo?K address 



decb name — symbol 

specifies the name assigned to the data event control block 
created as part of the macro expansion. 

type— tDA[Fn 

coicFixn 

CDKCFlXiy 

is coded in one of the combinations shown to specify the 
type of write operation and optional services performed by 
the system t 



DA 



DX 



DK 



specifies that a new data block is to be added to the 
data set in the first available space; the search for 
available space starts at the device address indicated 
in the area specified in the block address operand. 
Fixed'-length records (with keys only) are added to a 
data set by replacing dummy records. Variable-length 
records (with or without keys) are added to a data set 
by using available space on a track. (For more 
information on adding records to a direct data set^ 
see Data Administration Guide. The description of the 
DCB macro instruction^ LIMCT operands contains a 
description of the search.) 

specifies that a data block and key# if any, are to be 
written at the device address indicated in the area 
specified in the block address operand. Any attempt 
to write a capacity record (RO) is an invalid request 
when relative track addressing or actual device 
addressing are used^ but when relative block 
addressing is used, relative block 0 is the first data 
block in the data set. 



specifies that a data block (only) is to be written 
using the key in the area specified by the key address, 
operand as a search argument; the search for the block 
starts at the device address indicated in the area 
specified in the block address operand. The 
description of the DCB macro instruction* LIMCT 
operand* contains a description of the search. 
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F 

requests that the system provide block position 
feedback into the area specified in the block address 
operand. This character can be coded as a suffix to 
DA» Hip or DK as shown above. 

X 

requests that the system release the exclusive control 
requested by a previous READ macro instruction and 
provide block position feedback into the area 
specified in the block address operand. This 
character can be coded as a suffix to DZ or DK as 
shown above. 

deb address — A-Type Address or (2-12) 

specifies the address of the data control block for the 
opened BDAM data set. 

area address — A-Type Address* (2-12), or 'S' 

specifies the address of the area that contains the data 
block to be written. *S* can be coded instead of an area 
address only if the data block (or key and data) are 
contained in a buffer provided by dynamic buffering; that 
is, *$* was coded in the area address operand of the 
associated READ macro instruction. If *S* is coded in the 
NRITE macro instruction, the area address from the READ 
macro instruction data event control block must be moved 
into the HRITE macro instruction data event control block; 
the buffer area acquired by dynamic buffering is released 
after the NRITE macro instruction is executed. For a 
description of the data event control block, see 
Appendix A, "Status Information Following an Input/Output 
Operation" on page 192. 

length — symbol, decimal digit, absexp, (2-12) or 'S* 

specifies the number of data bytes to be written up to a 
maximum of 32760. If *S* is coded, it specifies that the 
system uses the value in the block size (DCBBLKSI) field as 
the length. Nhen undefined-length records are used, if the 
NRITE macro instruction is for update and the length 
specified differs from the original block, the new block 
will be truncated or padded with binary zeros accordingly. 
The problem program can check for this situation in the 
SYNAD routine. 

If the length operand is omitted for format-U records, no 
error indication is given when the program is assembled, 
but the problem program must insert a length into the data 
event control block before the NRITE macro instruction is 
executed. 

key address — A-Type Address, (2-12), 'S*, or 0 

specifies the address of the area that contains the key to 
be used. *S* is specified instead of an address only if 
the key is contained in an area acquired by dynamic 
buffering. If the key is not written or used as a search 
argument, zero is specified instead of a key address. 

block address — A-Type Address or (2-12) 

specifies the address of the area that contains the 
relative block address, relative track address, or actual 
device address used in the output operation. The length of 
the area depends on the type of addressing used and if the 
feedback option (OPTCD-F) is specified in the data control 
block. 

If OPTCD-F has been specified in the DCS macro and F or X 
is specified in the NRITE macro, you must provide a 
relative block address in the form specified by OPTCD in 
the DCB macro. For example, if OPTCD=R is specified, you 
must provide a 3-byte relative block address; if OPTCD=A is 
specified, you must provide an 8-byte actual device address 
(MBBCCHKR); if neither is specified, you must provide a 
3-byte relative address (TTR). 
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If OPTCD^^F has not been specified in the DCB macro and F or 
X is specified in the MRITE macro* then you must provide an 
S-byte actual device address (MBBCCHHR) even if relative 
block or relative track addressing is being used. 
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WRITE 



The NRITE macro instruction causes the system to add or replace 
a record or replace an updated block in an existing indexed 
sequential data set. Control may be returned to the problem 
program before the block or record is written. The output 
operation must be tested for completion using a HAIT or CHECK 
macro instruction. A data event control blocks shown in 
Appendix A» "Status Information Following an Input/Output 
Operation** on page 192^ is constructed as part of the macro 
expansion . 

The standard form of the HRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 





WRITE 


d$?l? name 

» type 






,ciAQfl±£irs*> 










rK«y address 



decb name — symbol 

specifies the name assigned to the data event control block 
created as part of the macro expansion. 

±yEfi— CKIKN} 

is coded as shown to specify the type of write operation: 
K 

specifies that either an updated unblocked record or a 
block containing an updated record is to be written. 
If the record has been read using a READ KU macro 
instruction, the data event control block for the READ 
macro instruction must be used as the data event 
control block for the NRITE macro instruction, using 
the execute form of the WRITE macro instruction. 

KN 

specifies that a new record is to be written, or a 
variable-length record is to be rewritten with a 
different length. All records or blocks of records 
read using READ KU macro instructions for the same 
data control block must be written back before a new 
record can be added, except when the READ KU and WRITE 
KN reference the same DECB. 

deb address — A-Type Address or (2-12) 

specifies the address of the data control block for the 
opened existing indexed sequential data set. If a block is 
written, the data control block address must be the same as 
the deb address operand in the corresponding READ macro 
instruction. 

area address — A-Type Address, (2-12), or 'S* 

specifies the address of the area containing the logical 
record or block of records to be written. The first 16 
bytes of this area are used by the system and should not 
contain your data. The area address must specify a 
different area than the key address. When new records are 
written (or when variable-length records are rewritten with 
a different length), the area address of the new record 
must always be supplied by the problem program. This area 
may be altered by the system. *S' may be coded instead of 
an address only if the block of records is contained in an 
area provided by dynamic buffering; that is, *S' was coded 
for the area address operand in the associated READ KU 
macro instruction. This area is released after execution 
of a WRITE macro instruction using the same DECB. The area 
can also be released by a FREEDBUF macro instruction. 
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The following illustration shows the format of the areat 

Area i 
Address I 
V 



Control 


Logical Record (NRITE KN) or Block 


Program Use 


of Records (NRITE K) 



Indexed sequential buffer and work area requirements are 
discussed in Data Administration Guide. 

length — symbols decimal digits absexp* (2-12) or 'S' 

specifies the number of data bytes to be written^ up to a 
maximum of 32760. Specify 'S' unless a variable-length 
record will be rewritten with a different length. 

key address— -A -Type Address or (2-12) 

specifies the address of the area containing the key of the 
new or updated record. The key address must specify a 
different area than the area address. For blocked records^ 
this is not necessarily the high key in the block. For 
unblocked records^ this field should not overlap with the 
work area specified in the MSNA parameter of the DCB macro 
instruction. 

Note: When new records are written^ the key area may be 
altered by the system. 
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MRITE--WRITE A PUQCK (PPAtj ANP g?AH) 

The NRITE macro instruction causes the system to add or replace 
a block in a sequential or partitioned data set being created or 
updated. Control may be returned to the problem program before 
the block is written. The output operation must be tested for 
completion using the CHECK macro instruction. A data event 
control block/ shown in Appendix A^ "Status Information 
Following an Input/Output Operation" on page 192, is constructed 
as part of the macro expansion. 

If translation from EBCDIC code to ISCII/ASCII code is 
requested/ issuing multiple NRITE macro instructions for the 
same record causes an error because the first MRITE macro 
instruction issued causes the output data in the output buffer 
to be translated into ISCII/ASCII code. 

If the OPEN macro instruction specifies UPDAT, both the READ and 
HRITE macro instructions must reference the same data event 
control block. See the list form of the READ or NRITE macro 
instruction for a description of how to construct a data event 
control block; see the execute form of the READ or NRITE macro 
instruction for a description of modifying an existing data 
event control block. 

The standard form of the NRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 





WRITE 


;*?Qb name 






,SF 






fdcb address 















decl? n^m — symbol 

specifies the name assigned to the data event control block 
created as part of the macro expansion. 

SF 

specifies normal/ sequential/ forward operation. 

deb address — A-Type Address/ or (2-12) 

specifies the address of the data control block for the 
opened data set being created or processed. If the data 
set is being updated/ the data control block address must 
be the same as the deb address operand in the corresponding 
READ macro instruction. 

area address — A-Type Address or (2-12) 

specifies the address of the area that contains the data 
block to be written; if a key is written/ the key must 
precede the data in the same area. 

length — symbol/ decimal digit/ absexp/ (2-12) or 'S' 

specifies the number of bytes to be written; this operand 
is specified for only undefined-length records (RECFM=U) or 
for ASCII records (RECFM=D) when the DCB BUFOFF operand is 
zero. For AL tapes/ the maximum length is 2048 bytes; 
otherwise/ the maximum length is 32760 bytes. *S* can be 
coded to indicate that the value specified in the block 
size (DC6BLKSI) field of the data control block is used as 
the length to be written. The length operand should be 
omitted for all record formats except format-U and forma t-D 
(when BUFOFF=0). 

If the length operand is omitted for format-U or forroat-D 
(with BUFOFF=0) records/ no error indication is given when 
the program is assembled/ but the problem program must 
insert a length into the data event control block before 
the NRITE macro is issued. 
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WRITE— WRITE A BLOCK f CREATE A BDAM DATA SET WITH BSAMI 

The WRITE macro instruction causes the system to add a block to 
the direct data set being created. For fixed-length blocks* the 
system writes the capacity record automatically when the current 
track is filled; for variable and undefined-length blocks* a 
WRITE macro instruction must be issued for the capacity record. 
Control may be returned before the block is written. The output 
operations must be tested for completion using a CHECK macro 
instruction. A data event control block* shown in 
Appendix A* "Status Information Following an Input/Output 
Operation" on page 192, is constructed as part of the macro 
expansion . 

The standard form of the WRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form) s 





WRITE 


?i9<Jb nsme 
» typA 

.deb address 






•area address 

t»n^?<"^ acfdr^??! 











decb name — sy mbo 1 

specifies the name assigned to the data event control block 
created as part of the macro expansion. 

type — {SFISFRISDISZ} 

is coded as shown/ to specify the type of write operation 
performed by the system: 

SF 

specifies that a new data block is to be written in 
the data set. 

SFR 

specifies that a new variable-length spanned record is 
to be written in the data set* and next address 
feedback is requested. This operand can be specified 
only for variable-length spanned records (BFTEK=R and 
RECFM=VS are specified in the data set control block). 
If type SFR is specified* the next address operand 
must be included. 

SD 

specifies that a dummy data block is to be written in 
the data set; dummy data blocks can be written only 
when fixed-length records with keys are used. 

SZ 

specifies that a capacity record (RO) is to be written 
in the data set* capacity records can be written only 
when variable-length or undefined-length records are 
used. 

deb address — A-Type Address or (2-12) 

specifies the address of the data control block opened for 
the data set being created. DSORG=PS (or PSU) and MACRF=WL 
must be specified in the DCB macro instruction to create a 
BOAN data set. 

area address — A-Type Address or (2-12) 

specifies the address of the area that contains the data 
block to be added to the data set. If keys are used* the 
key must precede the data in the same area. For writing 
capacity records (SZ)* the area address is ignored and can 
be omitted (the system supplies the information for the 
capacity record). For writing dummy data blocks (SD)* the 
area need be only large enough to hold the key plus one 
data byte. The system constructs a dummy key with the 
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first byte set to all 1 bits (hexadecimal FF) and adds the 
block number in the first byte following the key. When a 
dummy block is written^ a complete block is written from 
the area immediately following the area address; therefore/ 
the area address plus the value specified in the 6LKSIZE 
and KEYLEN operands must be within the area allocated to 
the program writing the dummy blocks. 

length — symbols decimal digit, absexp, (2-12), or 'S' 

is used only when undefined-length (RECFM=U) blocks are 
being written. The operand specifies the length of the 
block, in bytes, up to a maximum of 32760. If 'S* is 
coded, it specifies that the system is to use the length in 
the block size (DCBBLKSI) field of the data control block 
as the length of the block to be written. 

If the length operand is omitted for format-U records, no 
error indication is given when the program is assembled, 
but the problem program must insert a length into the data 
event control block before the WRITE is issued. 

next address — A-Type Address or (2-12) 

specifies the address of the area where the system places 
the relative track address of the next record to be 
written. Next address feedback can be requested only when 
variable-length spanned records are used. 

Note: When variable-length spanned records are used (RECFM=VS 
and BFTEK=R are specified in the data control block), the system 
writes capacity records (RO) automatically in the following 
cases t 

• When a record spans a track. 

• When the record cannot be written completely on the current 
volume. In this case, all capacity records of remaining 
tracks on the current volume are written; tracks not written 
for this reason are still counted in the search limit 
specified in the LIMCT operand of the data control block. 

• When the record written is the last record on the track, the 
remaining space on the track cannot hold more than eight 
bytes of data. 
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CONPLETZON CODES FOR WRITE— WRITE A BLOCK (CREATE A BDAN DATA SET WITH BSAN) 

After the write has been scheduled and control has been returned 
to the user's program^ the three high-order bytes of register 15 
are set to 0; the loworder byte contains one of the following 
return codes* 



Return 

Code Heaning 



00 



04 



08 



00 



Fixed-Length 
(SF or SD) 

Block will be written. 
(If the previous 
return code was 08 » 
a block is written 
only if the DD 
statement specifies 
secondary space 
allocation and 
sufficient space is 
available. ) 

Block will be written^ 
followed by a capacity 
record. (If the 
previous return code 
was 08> a block is 
written only if the 
DD statement specifies 
secondary space 
allocation and 
sufficient space is 
available. ) 

Block will be written^ 
followed by a capacity 
record. The next 
block requires 
secondary space 
allocation. 



Block will not be 
written; issue a 
CHECK macro 
instruction for the 
previous NRITE macro 
instruction^ then 
reissue the HRITE 
macro instruction. 



Variable or Undefined-Length 



(SF or SFR) 

Block will be written. 
(If the previous 
return code was 08 > 
a block is written 
only if the DD 
statement specifies 
secondary space 
allocation and 
sufficient space is 
available. ) 

Block was not written; 
write a capacity record 
(SZ) to describe the 
current tracks then 
reissue the WRITE macro 
instruction. 



(SZ) 

Capacity record was 
written; another track 
is available. 



Block will not be 
written; issue a 
CHECK macro 
instruction for the 
previous WRITE macro 
instruction* then 
reissue the WRITE 
macro instruction. 



Capacity record was 
written. The next 
block requires 
secondary space 
allocation. This 
code is not issued 
if the WRITE SZ is 
the only WRITE macro 
instruction issued on 
a one-track secondary 
extent . 

Block will not be 
written; issue a 
CHECK macro 
instruction for the 
previous WRITE macro 
instruction* then 
reissue the WRITE 
macro instruction. 



Note: For fixed-length records* the return codes are unpredictable when writing one 
record per track with one track per extent. 
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WRITE 



WRITE— LIST FORM 

The list form of the WRITE macro instruction is used to 
construct a data management parameter list in the form of a data 
event control block (DECB). For a description of the various 
fields in the DECB for each access method/ see 
Appendix A* "Status Information Following an Input^Output 
Operation** on page 192. 

The description of the standard form of the WRITE macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method and the meaning of 'S* 
when coded for the area address^ lengths and key address 
operands. For each access methods 'S* can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the list form only/ but 
does not indicate optional and required operands for any 
specific access method. 

The list form of the WRITE macro is written: 





WRITE 


d??l? name 
f type 

,Cdcb ?ddre553 






t tarea address! *S* 3 

rtJLsnflibrs*] 










,Ckev address! *S*3 






^Iblpck ^ddr?55l 






,tp?xt ?^d<;jr?5s3 






,MF = L 



n^mg — symbol 

tvpe — Code one of the types shown in the standard form 

dgb g^dregg — A-Type Address 

area address — A-Type Address or 'S' 

^epoth — symbol/ decimal digit/ absexp/ or 'S* 

Key addrggg — A-Type Address or 'S* 

block address — A-Type Address 

next ad<rfregg — A-Type Address 

MF=L — Coded as shown 

specifies that the WRITE macro instruction is used to 
create a data event control block that will be referenced 
by an execute-form instruction. 
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WRITE 



A remote data management parameter list (data event control 
block) is used in^ and can be modified by» the execute form of 
the NRITE macro instruction. The data event control block can 
be generated by the list form of either a READ or HRITE macro 
instruction . 

The description of the standard form of the WRITE macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method and the meaning of 'S' 
when coded for the area address^ length* and key address 
operands. For each access method* 'S' can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the execute form only* but 
does not indicate the optional and required operands for any 
specific access method. 

The execute form of the NRITE macro instruction is written as 
follows: 



Csvni>?9l3 


WRITE 


de<?b address 

» tYP« 

, td<;k? addresgl 






,Carea ?^ddressrs'l 

»tlQnqthl'S'] 










fCK^Y address! 'S'l 






.[block addressl 






,Cnext addressl 






,MF=E 



decb addr6ss- --RX-Tvpe Address or (2-12) 

type — Code one of the types shown in the standard form 

deb address — RX-Type Address or (2-12) 

area address — RX-Type Address* (2-12), or 'S' 

length — symbol* decimal digit* absexp* (2-12)* or 'S' 

key address — RX-Type Address* (2-12)* or 'S* 

block address — RX-Type Address or (2-12) 

next address — RX-Type Address or (2-12) 

MF=E — Coded as shown 

specifies that the execute form of the WRITE macro 
instruction is used* and an existing data event control 
block (specified in the decb address operand) is to be used 
by the access method. 
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XLATE 



XLATE— TRAN SLATE TO AND FROM ISCII/ASCII (BSAM AND OSAMl 

The XLATE macro instruction is used to translate the data in an 
area in virtual storage from ISCII/ASCII code to EBCDIC code or 
from EBCDIC code to ISCII/ASCII code. 

To determine the ISCII/ASCII to EBCDIC or EBCDIC to ISCII/ASCII 
translation codes* see ANSI X3r26-1980 (American National 
Standard for Hollerith punch card code). When translating 
EBCDIC code to ISCII/ASCII code, all ISCII/ASCII code not having 
an EBCDIC equivalent is translated to X*3F'. When translating 
ISCII/ASCII code to EBCDIC code, all EBCDIC code not having an 
ISCII/ASCII equivalent is translated to X*1A*. Because Version 
3 ISCII/ASCII uses only 7 bits in each byte, bit 0 is always set 
to 0 during EBCDIC to ISCII/ASCII translation and is expected to 
be 0 during ISCII/ASCII to EBCDIC translation. 

The XLATE macro is written: 





XLATE 


sires address 






tlenath 






CfTO={A|£}] 



area address — RX-Type Address^ symbols decimal digit, absexp, 
(2-12), or (1) 

specifies the address of the area that is to be translated. 

length — symbol, decimal digit, absexp, (2-12), or (0) 
specifies the number of bytes to be translated. 

TOsCAlIJ 

specifies the type of translation requested. If this 
operand is omitted, E is assumed. The following describes 
the characters that can be specified: 

A 

specifies that translation from EBCDIC code to 
ISCII/ASCII code is requested. 

£ 

specifies that translation from ISCII/ASCII code to 
EBCDIC code is requested. 
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APPghipiX A. STATUS INPORMATION FOLLOWING AN IMPUT/OUTPUT OPERATIOM 



Following an input/output operation^ the control program makes 
certain status information available to the problem program. 
This information is a Z'byte exception code* or a 16-byte field 
of standard status indicators* or both. 

Exception codes are provided in the data control block (QISAM)* 
or in the data event control block (BISAM and BDAM) . The data 
event control block is described below, and the exception code 
lies within the block as shown in the illustration for the data 
event control block. If a DCBD macro instruction is coded, the 
exception code in a data control block can be addressed as two 
1-bvte fields, DC6EXCD1 and DCBEXCD2. For more information, see 
Pata FggjlitY Prqdvigti CtistgmisatiQn. 

Status indicators are available only to the error analysis 
routine designated by the SYNAD entry in the data control block. 
A pointer to the status indicators is provided either in the 
data event control block (BSAM, BPAM, and BDAM), or in register 
0 (QISAM and QSAM). For more information, see Data Facility 
Pr9dv<<;t« Cwstpwisation. 



PATA EVENT CQNTRQL BLQCK 

A data event control block is constructed as part of the 
expansion of READ and HRITE macro instructions and is used to 
pass parameters to the control program, help control the read or 
write operation, and receive indications of the success or 
failure of the operation. The data event control block is named 
by the READ or WRITE macro instruction, begins on a fullword 
boundary, and contains the information shown in the following 
illustration: 



Offset from DECS 
Address (Bytes) 

0 

+a 

+6 

+8 

+12 

+16 

+20 
+24 

+28 



Field Contents 
BSAM and BPAM BISAM 
ECB 
Type 
Length 
DCB address 
Area address 
I OB address 



ECB 
Type 
Length 
DCB address 
Area address 



Logical record 
address 

Key address 

Exception code 
(2 bytes) 



BDAM 

ECB» 

Type 

Length 

DCB address 

Area address 

lOB address 

Key address 
Block address 

Next address 



The control program returns exception codes in bytes +1 and 
+2 of the ECB. 
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APPENPIX P, PATA MANAPgMENT HAPRQ IN$TRWTIPN$ AYAILAgLE PY ACCES? HETHQP 



Macro Instruction BDAM BZSAM BPAM BSAH QISAM QSAN 

BLDL X 

BSP X 

BUILD X X X X X X 

BUILDRCD X 

CHECK X X X X 

CHKPT X X X X X X 

CLOSE X X X X X X 

CNTRL X X 

DCB X X X X X X 

DCBD X X X X X X 

ESETL X 

FEOV X X 

FIND X 
FREEBUF X X X X 

FREEDBUF X X 

FREEPOOL X X X X X X 

GET X X 

GETBUF X X X X 

GETPOOL X X X X X X 

MS6DISP X X X X X X 

NOTE X X 

OPEN X X X X X X 

PDAB X 

PDABD X 

POINT X X 

PRTOV X X 

PUT X X 

PUTX X X 

READ X X X X 

RELEX X 

RELSE X X 

SETL X 

SETPRT X X 

STOW X 

SYNADAF X X X X X X 

SYNADRLS X X X X X X 

SYNCDEV X X X X X X 

TRUNC X 

WAIT X X X X 

WRITE X X X X 

XLATE X X 
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APPENDIX c. peVXCe CAPACITXES 



The following information provides a guide to coding the block 
size (BLKSIZE) and logical record length (LRECL) operands in the 
DCB macro instruction. These values can be used to determine 
the maximum block size and logical record length for a given 
device^ and they can be used to determine the optimum blocking 
factor when records are to be blocked. 



CARP REAPgR? ANP CARP PMNCHE$ 

Format F, V» or U records are accepted by readers and punches* 
but the logical record length for a card reader or card punch is 
fixed at 80 bytes. If the optional control character is 
specified* the logical record length is 81 (the control 
character is not part of the data record). If card image mode 
is used* the buffer required to contain the data must be 160 
bytes . 



PRINTERS 

The following table shows the record length that can be 
specified for the various printers. In some cases* two values 
are shown; except for the 3800* the larger of the two values 
requires that an optional feature be installed on the printer 
being used. If the optional control character is specified to 
control spacing and skipping* the record length is specified as 
one greater than the actual data length (the control character 
is not part of the data record). 

Printer Record Length 

120 or 132 bytes 
132 bytes 
132 or 150 bytes 

64 bytes 

136 bytes for 10 pitch 
163 bytes for 12 pitch 
20<% bytes for 15 pitch 



l<i03 Printer 

3203 Printer 

3211 Printer 

3525 Card Punch* 

Print Feature 

3800 Printing Subsystem 



NAQNETIC TAPE UNITS 



3480 Magnetic Tape Subsystem 32760 bytes 
(18 track) 



PIRECT ACCESS PEYICES 



The following table shows the capacity of direct access devices 
by track* cylinder* and total capacity in bytes. 
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Device 



Maximum Block Number of Track 

Size/Track Tracks per Cylinders Capacity 

(Note 1) Cylinder (Notes 1 and 2) (Bytes) 



2305-2 14660 

3330/3333 13030 
(Model 1)3 

3330/3333 13030 
;( Model 11) 

3340/3344^ 8368 

3350 19069 

3375 32760* 

3380 (Models 32760' 

AO<t, AA<!|, and 

B04) 

3380 (Models 32760' 
AD4 and BD<t) 

3380 (Models 32760* 
AE4 and BE4) 



8 

19 

19 

12 
30 
12 
15 

15 

15 



96 
404 

808 

696 
555 
959 
885 

885 

1770 



14858« 
13165* 

13165* 

8535* 
19254* 
36000* 
47968* 

47968* 
47968* 



^ Capacity indicated in bytes (when RO is used by the IBM 
programming system). 

2 Excludes alternate cylinders. 

' The Mass Storage System (MSS) virtual volumes assume the 
characteristics of the 3330/3333^ Model 1. 

^ The 3344 is functionally equivalent to the 3340 Model 70. 

' The largest record that can be written on a track for the 
3375 is 35616 and for all 3380 models is 47476. However^ 
for these devices the largest block size supported by the 
standard access methods is 3276 0. 

* This value is different from the maximum block size per 

track because each block on the track includes an overhead 
for this device. 

Each record written on a direct access device requires some 
'device overhead.* The tern device overhead means the space 
required by the device for address markers^ count areas^ gaps 
between the count, key, and data areas, and gaps between blocks. 
The following calculations can be used to compute the number of 
bytes required for each data block including the space required 
for device overhead. Note that any fraction of a byte must be 
ignored. For example, if the calculation results in 15.644 
bytesy 15 bytes must be used to determine track capacity. 
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Device 


Blocks 
With Keys 


Blocks 
Without Keys 


2305-2 


289+KL»+DL« 


198+DL 


3330/3333 (Model 1 or 


191+ICL+DL 


135+DL 


3340/334<i 


2<i2+KL'»-DL 


167+DL 


3350 


267+KL+DL 


185-i-DL 


3375 


224+( ( KL+191 )/32) (32)+ 
((DL'i-191)/32)(32) 


224+( (DL+191 )/32) ( 32) 


3380 (Models A04, AM, 
and B04) 


256+((KL+267)/32)(32)+ 
((DL+267)/32)(32) 


256'i-((DL-i'267)/32)(32) 


3380 (Models AD4 and BD4) 


256+((KL+267)/32)(32)+ 
((DL+267)/32)(32) 


256'«-(( 01+267)/ 32) (32) 


3380 (Models AE4 and BE4) 


256+((KL+267)/32)(32)+ 
((DL+267)/32)(32) 


256+((DL+267)/32)(32) 



^ KL is key length. 
^ DL is data length. 

^ The Mass Storage System (MSS) virtual volumes assume the 
characteristics of the 333Q/3333> Model 1. 

Nhen track overflow is used or variable-length spanned records 
are written^ the size of a data block or logical record can 
exceed the capacity of a single track on the direct access 
device used. 
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APPENDIX P. DCB EXIT LIST FORMAT AND CONTENTS 



The following shows the format and contents that must be 
supplied by the problem program when the EXIST operand is 
specified in a DCB macro instruction. The exit list must begin 
on a fullword boundary and each entry in the list requires one 
fullword. 



Entry Type 


Hex 
code 


3"Byte Address'^Purpose 


Inactive entry 


00 


Ignore the entry; it is not active. 


Input header label exit 


01 


Process a user input header label . 


Output header label 
exit 


02 


Create a user output header label . 


Input trailer label 
exit 


03 


Process a user input trailer label. 


Output trailer label 
exit 


04 


Create a user output trailer label. 


Data control block exit 


05 


Take a data control block exit. 


End-of-volume exit 


06 


Take an end-of-volume exit. 


JrCB exit 


07 


JFCB address for RDJFCB and OPEN TYPE^J SVCs. 




08 


Reserved. 


I/O error processing 
exit 


09 


User option to process I/O errors. 


User totaling area 


OA 


Address of beginning of user's totaling area. 


Block count exit 


OB 


Take a block-count-unequal exit. 


Defer input trailer 
label 


OC 


Defer processing of a user input trailer label from 
end-of-data until closing. 


Defer nonstandard input 
trailer label 


A 1% 

OD 


Defer processing a nonstandard input trailer label 
on magnetic tape unit from end-of-data until 
closing (no exit routine address). 




UE*Or 


Reserved . 


ruD image 


1 n 


ueTine an rUD image. 


DCB abend exit 


11 


Examine the abend condition and select one of 
several options. 


QSAM parallel input 


12 


Address of the PDAB for which this DCB is a member. 


Allocation retrieval 
list 


13 


Retrieve allocation information for one or more 
data sets with RDJFCB. 




14 


Reserved . 


JFCBE exit 


15 


Take an exit during OPEN to allow user to examine 
JCL=specified setup requirements for a 3800 
printer. 




16 


Reserved . 
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Entry Type 


Code 


3-Byte Address~-Purpose 


OPEN/EOV nonspecific 
'tape volume mount 


17 


Option to specify a tape volume serial number. 


OPEN/EOV volume 
security/verification 


18 


Verify a tape volume and some security checks. 




19-7F 


Reserved. 


Last entry 


80 


Treat this entry as the last entry in the list. 
This code can be specified with any of the above 
but must always be specified with the last entry. 



The list can be dynamically shortened during execution by 
setting the high-order bit of the word to a value of 1. An 
entry in the list can be made inactive dynamically by setting 
the high-order byte of the word to a value of hexadecimal 00. 

Nhen control is passed to an exit routine^ the general registers 
contain the following information) 



Contents 

Variable; the contents depend on the exit routine 
used. 

The three low-order bytes contain either the address 
of the DCB currently being processed or, when certain 
exits are taken, the address of the exit parameter 
list. These exits are: user-label exits (X' 01 04* ), 
deferred nonstandard input trailer exit (X*OD*)r and 
DCB abend exit (X»ll»). 

Contents prior to execution of the macro instruction. 

Return address (must not be altered by the exit 
routine) . 

Address of the exit routine entry point. 

The conventions for saving and restoring registers are as 

follows: 

• The exit routine must preserve the contents of register 14. 
It need not preserve the contents of other registers. The 
control program restores registers 2 through 13 before 
returning control to the problem program. 

• The exit routine must not use the save area whose address is 
in register 13, because this area is used by the control 
program. If the exit routine calls another routine or 
issues supervisor or data management macro instructions^ it 
must provide the address of a new sava area in register 13. 

For a detailed description of each exit list processing option^ 

see Data Administration Guide. 



Register 
0 

1 

2-13 
14 

15 
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APPENDIX E. CONTROL CHARACTERS 



Each logical record* in all record formats^ can contain an 
optional control character. This control character is used to 
control stacker selection on a card punch or card read punch* or 
it is used to control printer spacing and skipping. If a record 
containing an optional control character is directed to any 
other device* it is considered to be the first data byte* and it 
does not cause a control function to occur. 

In format-F and format-U records* the optional control character 
must be in the first byte of the logical record. 

In format-V or format-D records* the optional control character 
must be in the fifth byte of the logical record* immediately 
following the record descriptor word of the record. 

Two control character options are available. A control 
character option is selected by coding the appropriate character 
in the RECFM operand of the DCB macro instruction. If either 
option is specified in the data control block* a control 
character must be included in each record* and other spacing or 
stacker selection options also specified in the data control 
block are ignored. 



HACHINS PPPE 

The record format field in the data control block indicates that 
the machine code control character has been placed in each 
logical record. If the record is written* the appropriate byte 
must contain the command code bit configuration specifying both 
the write and the desired carriage or stacker select operation. 
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The machine code control characters for a printer are» 

Print — Then Act Immediately 

Act Action Without Printing 



01 



Print only (no 
space) 



X' 


09» 


Space 1 


line 




X»OB» 


X' 


11» 


Space 2 


lines 




X»13» 


X' 


19» 


Space 3 


lines 




X»1B» 


X' 


89* 


Skip to 


channel 


1 


X«8B» 


X" 


91» 


Skip to 


channel 


2 


X»93' 


X" 


991 


Skip to 


channel 


3 


X«9B» 


X' 


Al« 


Skip to 


channel 




X»A3» 


X' 


A9» 


Skip to 


channel 


5 


X'AB* 


X' 


Bl« 


Skip to 


channel 


6 


X»B3» 


X" 


B9» 


Skip to 


channel 


7 


X»BB' 


X 


'CI* 


Skip to 


channel 


8 


X»C3' 


X 


C9' 


Skip to 


channel 


9 


X»CB» 


X' 


Dl» 


Skip to 


channel 


10 


X»D3» 


X 


'D9» 


Skip to 


channel 


11 


X'DB* 


X 


'El* 


Skip to 


channel 


12 


X»E3' 



The machine code control characters for a card read punch device 
are as follows: 

Control Code Action 

X»01' Select stacker 1 

X»<il» Select stacker 2 

X'5A»* Change from line 

mode to page mode 

X'81* Select stacker 3 

^ The 3800 Model 3 all-points-addressable mode uses this code 
to change from compatibility to page mode. 

Other command codes for specific devices are contained in IBM 
System Reference Library publications describing the control 
units or devices. 
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ISO/ANSI/FIPS CONTROL CHARACTERS 

In place of machine code/ control characters defined by the 
International Organization for Standardization (ISO)> American 
National Standards Institute (AMSI)f or the Federal Information 
Processing Standards (FIPS) can be specified. These characters 
must be represented in EBCDIC code. 

International Organization for Standardization (ISO)/ American 
National Standards Institute (ANSI)/ or Federal Information 
Processing Standards (FIPS) control characters are as follows: 

Code Action before Printing a Line 

b Space one line (blank code) 

0 Space two lines 

Space three lines 

+ Suppress space 



1 


Skip 


to 


channel 


1 


2 


Skip 


to 


channel 


2 


3 


Skip 


to 


channel 


3 




Skip 


to 


channel 




5 


Skip 


to 


channel 


5 


6 


Skip 


to 


channel 


6 


7 


Skip 


to 


channel 


7 


8 


Skip 


to 


channel 


8 


9 


Skip 


to 


channel 


9 


A 


Skip 


to 


channel 


10 


B 


Skip 


to 


channel 


11 


C 


Skip 


to 


channel 


12 



Code Action after Punching a Card 

V Select punch pocket 1 

H Select punch pocket 2 

X'5A*^ Change from line mode to page mode 

^ The 3800 Model 3 all-points*-addressable mode uses this code 
to change from compatibility to page mode. 

These control characters include those defined by ANSI FORTRAN. 
If any other character is specified/ it is interpreted as *b* or 
V/ depending on the device being used; no error indication is 
returned. 
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APPENDIX F. DATA CONTROL BLOCK SYMBOLIC PIELP NAMES 



The following describes data control block fields that contain 
information that defines the data characteristics and device 
requirements for a data set. Each of the fields described shows 
the values that result from specifying various options in the 
DCB macro instruction. These fields can be referred to by the 
problem program through the use of a DCBO macro instruction that 
creates a dummy control section (DSECT) for the data control 
block. Fields that contain addresses are 4 bytes long and are 
aligned on a fullword boundary. If the problem program inserts 
an address into a field* the address must be inserted into the 
low-order 3 bytes of the field without changing the high-order 
byte . 

The contents of some fields in the data control block depend on 
the device and access method being used. A separate description 
is provided when the contents of the field are not common to all 
device types and access methods. 
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PATA CQNTRPL PUQQK—CPfltlQN FIELP? 



Bytes and Field 
Offset Alignment Name 



26(1A) 2 



40(28) 8 

A0C28) 2 

42(2A) 2 

45(2D) .3 

<i8(30) 1 



DCBDSORG 



1 

1 

.1. ... 

. .X XX. 

1 

1 



DCBDDNAM 



DCBTIOT 



DCBMACRF 



DCBDEBA 



DCBOFLGS 
. . .1 ... 
1. . 

0 



..1 



50(32) ..2 



DCBMACR 
(Before 
OPEN) 



Description 

Data set organization. 



Code 

IS 
PS 
DA 

PO 
U 



Indexed sequential. 

Physical sequential. 

Direct organization. 

Reserved bits. 

Partitioned organization. 

Unmovable — the data set contains 

location-dependent information. 



Eight-byte name of the data definition 
statement that defines the data set associated 
with this DCB. (Before DCB is opened.) 

(After DCB is opened.) Offset from the TIOT 
origin to the TIOELNGH field in the TIOT entry 
for the DD statement associated with this DCB. 

This field may only be referenced during 
and after OPEN. It is -common to all uses 
of the DCB and is created by moving the 
DCBMACR field into this area. 



(After DCB is opened.) 
associated DEB. 



Address of the 



Flags used by open routine. 

OPEN has completed successfully. 

Set to 1 by problem program to indicate 

concatenation of unlike attributes. 

Set to 0 by an I/O support function when 

that function takes a user exit. It is 

set to 0 to inhibit other I/O support 

functions from processing this DCB. 

Set to 1 on return from the user exit to 

the I/O support function that took the exit. 

Macro instruction reference before OPEN. 
Major macro instructions and various options 
associated with them. Used by the open 
routine to determine access method. Used by 
the access method executes in conjunction 
with other parameters to determine which load 
modules are required. This field is moved to 
overlay part of DCBDDNAM at open time and 
becomes the DCBMACRF field. 

This field is common to all uses of the DCB» 
but each access method must be referenced for 
its meaning. 
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DATA CONTRO L BLOCK— BPAM. BSAM. QSAM 



Bytes and Field 
Offset Alignment Name 

20(14) 1 DCBBUFNO 



21(15) .3 DCBBUFCB 
24(18) 2 DCBBUFL 



32(20) 1 DCBBFALN 

• • • • * • 

10 

01 



32(20) 1 DCBBFTEK 

• XXX • • • • 

.1.0 

.110 — 



.010 .... 



• ••• X*«* 
•••• X*«» 



33(21) .3 DCBEODAD 



Description 

Number of buffers required for this data set. 
May range from 0 to a maximum of 255. 

Address of buffer pool control block. 

Length of buffer. May range from 0 to a 
maximum of 32760. 

Buffer Alignments 

Reserved bits. 
D Doubleword boundary. 
F Fullword not a doubleword boundary^ 

coded in the DCB macro instruction. 

Buffering technique* 
Reserved bits. 
S Simple buffering. 

A QSAM locate mode processing of spanned 
records: OPEN is to construct a record 
area if it automatically constructs 
buffers. 

R BSAM create BDAM processing of unblocked 
spanned records: Software track 
overflow. OPEN forms a segment work 
area pool and stores the address of the 
segment work area control block in 
DCBECBW. However, HRITE uses a 
segment work area to write a record as 
one or more segments. 

BSAM input processing of unblocked 
spanned records with keysi Record offset 
processing. READ reads one record 
segment into the record area. The- first 
segment of a record is preceded in the 
record area by the key. Subsequent 
segments are at an offset equal to the 
key length. 

Reserved bit. 

XLRI being used to process a RECFM^DS or 
RECFM=DBS format tape data set (QSAM). 

End-of-'data address. Address of a 
user-provided routine to handle end-of-data 
conditions. 
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Bytes and Field 
Offset Alignment Name 



36(24) 1 



DCBRECFM 



001. 
10. . 
01. . 
11. . 
. .1. 
...1 



1. 



.10. 
.01. 
.00. 
. . .1 



37(25) .3 
42(2A) 2 

50(32) ..2 



51(33) 



DCBEXLST 
DCBMACRF 



DCBMACR 
(Before 
OPEN) 



Byte 1 
00. . 
. .1. 

1. . 
.1. 

Byte 2 
00. . 
. .1. 



1.. 
.1. 
. .1 



Description 
Record format. 



Code 

D 

F 

V 

U 

T 

B 



Format-D record. 
Fixed record length. 
Variable record length. 
Undefined record length. 
Track overflow. 

Blocked records. May not occur with 
undefined (U). 

Fixed length record format: Standard 
blocks. (No truncated blocks or 
unfilled tracks are embedded in the 
data set.) Variable length record 
format i Spanned records. 
ISQ/ANSI/FIPS control character. 
Machine control character. 
No control character. 
Key length (KEYLEN) was specified 
in the DCB macro instruction. This 
bit is inspected by the Open to 
prevent overriding a specification 
of KEYLEN=0 by a nonzero specifi- 
cation in the JFCB or data set 
label. 



Exit list. Address of a user-provided exit 
list control block. 

Macro instruction reference after OPEN. 

Contents and meaning are the same as those of 
the DCBMACR field in the foundation segment 
before OPEN. 

Major macro instructions and various options 
associated with them. Used by the Open 
routine to determine access method. Used by 
the access method executes in conjunction 
with other parameters to determine which load 
modules are required. 



Code 



BSAM — Input 

Always zero for BSAM. 

READ 

Reserved bits. 

POINT (which implies NOTE). 

CNTRL 

BSAM— Output 

Always zero for BSAM. 

WRITE 

Load mode BSAM (create BDAM data 
set) . 

POINT (which implies NOTE). 

CNTRL 

BSAM create BDAM processing of 
unblocked spanned records^ with 
BFTEK=R specified: The user's program 
has provided a segment work area pool 
and stored the address of the segment 
work area control block in DCBEOBN. 
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Bytes and Field 
Offset Alignment Name 



50(32) 



51(33) 



50(32) 



51(33) 



Byte 1 
0. . . . 
1. . . 
0. . 
.1 

. . 1 



Byte 2 
0. . . . 
1. . . 
0. . 
.1 . 
. . 1 



Byte 1 

00 

..1 

.... .1. . 
. . .X x.xx 

Byte 2 

00 

. .1 

1. . 

... X X . XX 



Description 

Q?AI1 — Inpvtt 

Always zero for QSAM. 
G GET 

Always zero for QSAM. 
Vt Move mode. 
L Locate mode. 

C CNTRL 
D Data mode. 

QSAM — Output 

Always zero for QSAM. 
P PUT 

Always zero for QSAM. 
M Move mode. 
L Locate mode. 

C CNTRL 
D Data mode. 

BPAM — Input 
Always zero for BPAN. 
R READ 

P POINT (which implies NOTE) 
Reserved bits. 

PPAM— OMtPMt 
Always zero for BPAM. 
H WRITE 

P POINT (which implies NOTE) 
Reserved bits. 



DIRECT ACCESS STORAGE DEVICE INTERFACE 



Offset 

16(10) 
17(11) 



Bytes and 
Alignment 

1 

.1 



Field 
Name 

DCBKEYLE 
DCBDEVT 



0010 
0010 



0010 
0010 
0010 
0010 
0010 



0111 
1001 



1101 
1010 
1011 
1100 
1110 



Description 

Key length of the data set. 
Device type. 

2305 Disk Storage Facility, 
3330 Disk Storage, Model 1, 
Mass Storage System (MSS) 
virtual volume. 
3330 Disk Storage, Model 11 
3340/3344 Disk Storage. 
3350 Direct Access Storage. 
3375 Direct Access Storage. 
3380 Direct Access Storage. 



Model 2. 
or 
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Macro Instruction Reference 



MAGNETIC TAPE INTERFACE 



Bytes and Field 
Offset Alignment Name 



16(10) 



17(11) 



18(12) 



.1 



DCBTRTCH 



0010 
0011 
0001 
0010 



0011 
1011 
0011 
1011 



DCBDEVT 

1000 0011 
1000 1000 

DCBDEN 



0100 0011 

1000 0011 

1100 0011 

1101 0011 



Description 

Tape recording technique for 7-track tape. 
Code 

E Even parity. 

T BCD/EBCDIC translation. 

C Data conversion. 

ET Even parity and translation. 

Device type. 

3400 series magnetic tape unit. 
3480 Magnetic Tape Subsystem 

Tape density— '3400 series magnetic tape 
units. 



Code 

1 
2 
3 
4 



7-track 

556 BPI 
800 BPI 
N/A 
N/A 



9-track 

N/A 

800 BPI 
1600 BPI 
6250 BPI 



18-track 

N/A 
N/A 
N/A 
N/A 



CARD READER* CARD PUNCH INTERFACE 



Bytes and Field 

Offset Alignment Name Description 

16(10) 1 DCBMODE^DCBSTACK 

Code 

1000 .... C Column binary mode. 

0100 E EBCDIC mode. 

.... xxxx stacker selection. 

0001 1 Stacker 1. 

0010 2 Stacker 2. 

0011 3 Stacker 3. 

17(11) .1 DCBDEVT Device type. 

0100 0001 2540 Card Reader 

0100 0010 2540 Card Punch 

0100 0100 2501 Card Reader 

0100 0110 3505 Card Reader 

0100 1100 3525 Card Punch 



PRINTER INTERFACE 
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Bytes and Field 
Offset Alignment Name 



16(10) 1 



17(11) .2 



19(13) ...1 



DCBPRTSP 



0000 0000 

0000 0001 

0001 0001 
0001 1001 

DCBDEVT 

Byte 0 
0100 1000 
0100 1001 
0100 1011 
0100 1110 



Byte 1 
0010 0000 
0001 0000 
DCBPRBYT 

XXXX XX. . 

11 



Description 

Number indicating normal printer spacing, 
Code 

0 No spacing* 

1 Space one line. 

2 Space two lines. 

3 Space three lines. 

Device type. 



1^03 Printer 
3211 Printer 
3203 Printer 
3800 Printing Subsystem 

Test-for-printer-overf low mask (PRTOV 
mask). If printer overflow is to be 
tested for* the PRTOV macro instruction 
sets the mask as follows: 

Code 

9 Test for channel 9 overflow. 
12 Test for channel 12 overflow. 

Reserved. 

Bits to identify presently active table 
reference character when 3800 printer is 
operating under OPTCD^J. 
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ACCESS METHOD INTERFACE 



BSAM, SPAN Interface 



Bytes and Field 
Offset Alignment Name 



52(34) 1 



DCBOPTCD 



1. . . 
.1. . 



57(39) .3 



62(3E) ..2 



. .1 



1. . . 

1. . 

..1. 

1 



DCBSYNAD 



DCBBLKSI 



72(48) 1 



DCBNCP 



Description 
Option codes. 
Code 

W Write-validity check (DASD). 

U Allow a data check caused by an invalid 

character. (1403 printer with UCS 

feature . ) 

Hindow processing requested. (MSS) 
B Treat EOF and EOV labels as EOV labels 
which allows SL or AL tapes to be read 
out of order. (Magnetic tape.) 
C Chained scheduling. 

Input Tape Files: Requests the 
testing for and bypassing of any 
embedded DOS checkpoint records 
encountered. (This code can only 
be specified in a JCL statement.) 
An ISCII/ASCII data set is 
to be processed. 

Magnetic tape devices: Use reduced 
error recovery procedure. 
BSAM only: user totaling. 
Specifies that the first data byte 
in the output data line will be a 
3800 table reference character for 
dynamic selection of character sets. 

Address of user's synchronous error 
routine to be entered when a permanent 
error occurs. 

Maximum block size. Maximum value: 32760. 
The maximum block size for Version 3 ISO/ANSI/FIPS 
is 2048. An attempt to process from a Version 
3 tape results in a label validation installation 
exit being taken. 

For fixed-length blocked record format* it 
must be a multiple of the length given in 
DCBLRECL. For variable-length records^ this 
must include the 4--byte block length field. 

For more information about ISQ/ANSI/FIPS 
spanned records* see 
Pat^ Administratipn guide. 

Number of channel programs. Number of 
READ or HRITE requests that may be issued 
prior to a CHECK. Maximum number: 99. 
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Bytes and Field 
Offset Alignment Name Description 

80(50) 1 DCBUSASI/ ISCII/ASCII tape. 

DCBLBP Block prefix. 

.1 Block prefix is a 4-byte field containing 

the block length. 

81(51) .1 DCBBUFOF Block prefix length. 

82(52) ..2 DCBLRECL Logical record length. For fixed-length 

blocked record format/ the presence of 
DCBLRECL allows BSAM to read truncated 
records. For undefined records* this field 
contains block size. 
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QSAN Znterface 



Bytes and Field 
Offset Alignment Name 



52(34) 1 



DCBOPTCD 



1 

.1.. .. 



57(39) .3 



62(3E) ..2 



. .1 

•••X •••• 



— 1. . . 



•••• 

1. 

1 



DCBSYNAD 



DCBBLKSI 



80(50) 1 



DCBUSASI/ 
DCBLBP 

.1 



Description 
Option codes. 



Code 



Write-validity check (DASD). 
Allow a data check for an invalid 
character. (1403 printer with DCS 
feature.) Window processing requested, 
(MSS) 

Treat EOF and EOV labels as EOV 
labels, which allows SL or AL tapes 
to be read out of order (magnetic 
tape) . 

Chained scheduling. 
Input Tape Files: Requests the 
testing for and bypassing of any 
embedded DOS checkpoint records 
encountered. (This code can only 
be specified in a JCL statement.) 
An ISCII/ASCII data set is to 
be processed. 

Same as DCBOPTQ. BSAM only. 
Magnetic tape devices. Use reduced 
error recovery procedure. 
User totaling. 

Specifies that the first data byte in 
the output data line will be a 3800 
table reference character. 



Address of the user's synchronous error 
routine to be entered when a permanent error 
occurs. 

Maximum block size. Maximum value: 32760. 
The maximum block size for Version 3 ISO/ANSI/FIPS 
is 2048. An attempt to process from a Version 
3 tape results in a label validation installation 
exit being taken. 

For fixed-length blocked record format, 
it must be a multiple of DCBRECL . For 
variable-length records this must include 
the 4-byte block length field provided by 
the access method. 

ISCII/ASCII tape. 
Block prefix. 

Block prefix is a 4-byte field containing 
the block length. (BUFOFF=L was specified). 



81(51) .1 



DCBBUFOF 



Block prefix length. 
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Bytes and Field 
Offset Alignment Name 



82(52) ..2 



DCBLRECL 



84(5A) 1 



85(55) 3 

88(58) 2 

90(5A) 2 

92(5C) 4 



DCBEROPT 



100 

010 

001 

. . .X xxxx 

DCBCNTRA 



DCBPRECL 
DCBEOB 



Description 

Format-F records t Record length. 
Format-U records > Block size. 
Format-V records — 

• Unspanned record format — 
GET: PUTX; record length. 

PUT: Actual or maximum record length. 

• Spanned record format — - 
Locate mode — • 

— GET: Segment length. 

— PUT: Actual or minimum segment 
length. 

Logical record interface — 
--' Before OPEN* Maximum logical record 
length. 

— After GET: Record length. 

— Before PUT: Actual or maximum 
record length. 

— ISO/ANSI/FIPS spanned record format 
with XLRI; length of the record area 
in 'K* units (1024). 

Move mode — 

— GET: Record length. 

— PUT: Actual or maximum record 
length. 

• Data mode, GET — 

Data records up to 32752 bytes: Data 
length. 

Data records exceeding 32752 bytes: 

— Before OPEN: X»8000» 

— After OPEN: Data length. 

• Output mode/ PUTX (output data set): 
Segment length. 

Error option. Disposition of permanent errors 
if the user returns from a synchronous error 
exit (DCBSYNAD), or if the user has no 
synchronous error exit. 

ACC: Accept. 
SKP: Skip. 

ABE: Abnormal end of task. 
Reserved bits. 

Address of CNTRL module. 

Reserved. 

Block lengthy maximum block length, or 
data length. 

Address of end of block module. 
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DATA CONTROL BLOCK— ISAM 



Offset 

16(10) 
17(11) 



Bytes and 
Alignment 

1 

.1 



20(14) 1 

21(15) .3 

24(18) 2 

32(20) 1 



33(21) .3 
36(24) 1 



37(25) .3 
42(2A) ..2 



Field 
Name 

DCBKEYLE 
DCBDEVT 



0000 
0000 



0000 
0000 
0000 
0010 
0010 



0111 
1001 



1101 
1010 
1011 
1100 
1110 



DCBBUFNO 

DC6BUFCB 

DCBBUFL 

DCBBFALN 



DCBEODAD 



DCBRECFM 



10. . 

10. . 

11. . 
. .1. 
. . .1 



1... 



.10. 
.01. 
.00. 
. . .1 



DCBEXLST 
DCBMACRF 



Description 
Key length. 
Device type. 

2305 Disk Storage Facility^ Model 2. 

3330 Disk Storage, Model 1, or 

Mass Storage System (MSS) 

virtual volume. 

3330 Disk Storage, Model 11. 

3340 Disk Storage. 

3350 Direct Access Storage. 

3375 Direct Access Storage. 

3380 Direct Access Storage, all models. 

Number of buffers required for this data set 
0-255. 

Address of buffer pool control block. 
Length of buffer: 0 - 32760 bytes. 
Buffer alignment: 





Code 




. .XX 




Reserved bits. 


. .10 


D 


Doubleword boundary. 


. .01 


F 


Fullword not a doubleword boundary, 
coded in the DCB macro instruction. 


. .11 


F 


Fullword not a doubleword boundary^ 
coded in the DD statement. 



Address of a user-provided routine to handle 
end-of-data conditions. 

Record format. 



Code 

F 
V 
U 
T 
B 



Fixed length records. 
Variable length records. 
Undefined length records. 
Track overflow. 

Blocked records. Nay not occur with 
undefined (U). 

Standard records. No truncated blocks 
or unfilled tracks are embedded in the 
data set. 

ISO/ANSI/FIPS control character. 
Machine control character. 
No control character. 
Key length (KEYLEN) was specified in 
the DCB macro instruction; this bit is 
inspected by the open routine to prevent 
overriding a specification of KEYLEN=0 
by a nonzero specification in the JFCB 
or data set label . 



Exit list. Address of a user-provided list. 

Macro instruction reference after OPEN: 

Contents and meaning are the same as those 
of the DCBMACR field before OPEN. 
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Bytes and Field 
Offset Alignment Name 



56(38) 4 

60(3C) 2 

62(3E) ..2 

64(40) 4 

68(44) 2 

70(46) 2 

72(48) 1 

73(49) .3 

80(50) 1 



81(51) .1 



DCBSYNAD 
DCBRKP 

DCBBLKSI 
DCBMSHA 

DCBSMSI 
DCBSMSH 

DCBNCP 

DCBMSHI 
DCBEXCDl 



1. . 
.1. 

..1 



1. . 
.1. 
. .1 



82(52) ..2 



DCBEXCD2 



1... . 

.1. . . 

. .1. . 

...1 . 

• • • • X 



XXX 

DCBLRECL 



Description 

Address of user's synchronous error routine 
to be entered when uncorrectable errors are 
detected in processing data records. 

Relative position of the first byte of the 
key within each logical record. Maximum 
permissible value* logical record length 
minus key length. 

Block size. 

Address of the storage work area reserved for 
use by the control program when new records 
are being added to an existing data set. 

Number of bytes in area reserved to hold the 
highest level index. 

Number of bytes in work area used by control 
program when new records are being added to 
the data set. 

Number of copies of the READ-WRITE (type K) 
channel programs that are to be established 
for this data control block (99 maximum). 

Address of the storage area holding the 
highest level index. 

First byte in which exceptional conditions 
detected in processing data records are 
reported to the user. 

Lower key limit not found. 

Invalid device address for lower limit 

(QISAM only). Record length check (BISAM only). 

Space not found. 

Invalid request. 

Uncorrectable input error. 

Uncorrectable output error (BISAM only). 

Block could not be reached (BISAM only). 

Block could not be reached (input) (QISAM only). 

Overflow record (BISAM only). 

Block could not be reached (update) (QISAM only) 
Duplicate record (BISAM only) 

Second byte in which exceptional conditions 
detected in processing data records are 
reported to the user (QISAM only). 

Sequence check. 
Duplicate record. 

DCB closed when error was detected. 
Overflow record. 

PUT J length field of record larger than 
length indicated in DCBLRECL. 
Reserved bits. 

Logical record length for fixed-length record 
formats. Variable-length record formats: 
maximum logical record length or an actual 
logical record length changed dynamically 
by the user when creating the data set. 
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Bytes and Field 
Offset Alignment Name 



197(C5) .1 



DCBOVDEV 

0000 0111 
0000 1001 



0000 1101 

0000 1010 

0000 1011 

0010 1100 

0010 1110 



Description 

Device type for independent overflow. 

2305 Disk Storage Facility^ Model 2. 

3330 Disk Storage^ Model 1> or 

Mass Storage System (MSS) 

virtual volume. 

3330 Disk Storage^ Model 11. 

3340/33<t4 Disk Storage. 

3350 Direct Access Storage. 

3375 Direct Access Storage. 

3380 Direct Access Storage. 
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DATA CONTROL BLOCK— BDAM 



Bytes and Field 
Offset Alignment Name 



16(10) 
17(11) 



1 

.3 



20(14) 1 

21(15) .3 

24(18) 2 

32(20) 1 



32(20) 1 



36(24) 1 



DCBKEYLE 
DCBREL 

DCBBUFNO 

DCBBUFCB 

DCBBUFL 
DCBBFALN 

XX 

10 

01 

11 

.X.X X. . . 

DCBBFTEK 

. . X . .... 
. .1 



DCBRECFM 



10. . 
01. . 

11. . 
1. 
.1 



1 
.00 
. . .1 



Description 
Key length. 

Number of relative tracks or blocks in this 
data set. 

Number of buffers required for this data set. 
May range from 0 to 255. 

Address of buffer pool control block or of 
dynamic buffer pool control block. 

Length of buffer. May range from 0 to 32760. 

Buffer alignment! 

Reserved bits 
Doubleword boundary. 

Fullword not a doubleword boundary^ coded in 
the DCB macro instruction. 

Fullword not a doubleword boundary^ coded in 
the DD statement. 
Reserved bits. 

Buffering technique. 

Reserved bit. 
R Unblocked spanned records: 

Variable spanned record format. 
Open forms a segment work area pool . 
The number of segment work areas 
is determined by DCBBUFNO (OPEN 
stores the address of the segment 
work area control block in DCBDYNB 
if dynamic buffering is not 
used or in the dynamic buffer pool 
control block (see DCBBUFCB) if 
dynamic buffering is used. WRITE uses 
a segment work area to write a record 
as one or more segments. READ uses a 
segment work area to read a record that 
was written as one or more segments. 

Record format. 



Code 

F 

V 

U 

T 

B 

S 



37(25) .3 



DCBEXLST 



Fixed record length. 
Variable record length. 
Undefined record length. 
Track overflow. 

Blocked (allowed only with V). 
Spanned (allowed only with V). 
Always zeros. 

Key length (KEYLEN) was specified in 
the DCB macro instruction. This bit 
is inspected by the open routine to 
prevent overriding a specification of 
KEYLEN=0 by a nonzero specification 
in the JFCB or data set label. 



Exit list. Address of a user-provided exit 
list control block. 
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Bytes and Field 
Offset Alignment Name 



«i2(2A) ..2 



50(32) ..2 



50(32) 



51(33) 



52(3^4) 1 



56(38) 4 

62(3E) ..2 
81(51) .3 



DCBMACRF 



DCBMACR 



Byte 


1 


Code 


00. . 






. .1. 


• • • • 


R 






K 




i! !! 


I 




.1. . 


S 




. .1. 


X 




...1 


C 


Byte 


2 


Code 


00. . 






. .1. 




H 


. . .1 




K 






I 




.X. . 






. .1. 


A 




. ..1 





DCBOPTCD 



1 

.1.. .. 
..1. .. 
...1 .. 

1. 

1 

1 

1 

DCBSYNAD 



DCBBLKSI 
DCBLIMCT 



Description 

Macro instruction reference after OPEN. 

Contents and meaning are the same as 
DCBMACR before OPEN. 

Macro instruction reference before OPEN: 
major macro instructions and various options 
associated with them that will be used. 



Always zero for BDAN. 
READ 

Key segment with READ. 

ID argument with READ. 

System provides area for READ (dynamic 

buffering) . 

Read exclusive. 

CHECK macro instruction. 



Always zero for BDAM. 
NRITE 

Key segment with NRITE. 

ID argument with NRITE. 

Reserved bit. 

Add type of WRITE. 

Unblocked spanned records* with 

BFTEK=R specified and no dynamic 

buffering: The user's program 

has provided a segment work area 

pool and stored the address of 

the segment work area control 

block in DCBDYNB. 



Option codes: 



Code 
H 

E 
F 
A 



Write-validity check. 
Track overflow. 
Extended search. 
Feedback . 

Actual addressing. 
Dynamic buffering. 
Read exclusive. 
R Relative block addressing. 

Address of SYNAD (synchronous error) 
routine. 

Maximum block size. 

Number of tracks or number of relative blocks 
to be searched (extended search option). 
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APPENDIX G. PDABD SYMBOLIC FIELD NAMES 



The following describes PDABD fields of the dummy control 
section generated by the PDABD macro instruction. Included are 
the names^ attributes^ and descriptions of the dummy control 
section. The use of any of the symbolic names provided by the 
dummy section should be preceded by a USING instruction 
specifying IHAPDAB and a dummy section base register containing 
the address of the actual parallel data access block. 



IHAPDAB 

PDANODCB 

PDAMAXCB 

PDAGRTNA 

PDADCBAI 

PDADCBLA 

PDADCBEP 

PDAECBIX 

PDADCBAL 



PDABD 
DSECT 



DS 
DS 
DS 
DS 
DS 
DS 
DS 
EQU 



H 
H 
A 
F 
A 
A 
F 

X 



Number of DCB addresses in list 
Maximum number of addresses allowed 
Address of parallel GET routine 
DCB address increment 
Address of last DCB entry 
Address of DCB entry last processed 
Index to ECB list 
Start of DCB list 
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GLOSSARY OF TERMS AND ABBREVIATIONS 



The following terms are defined as they 
are used in this book. If you do not 
find the term you are looking for, refer 
to the index or to the IBM Vocabulary 
for Data Processing. Telecommunications. 
and Office Systems. GC20-1699. 

ABE. abnormal end (value of EROPT) 

ABEND, abnormal end (macro instruction) 

ABSTR. absolute track (value of SPACE) 

ACC. accept •rroneous block (value of 

EROPT) 

access method. A technique for moving 
data between main storage and 
input/output devices. 

address marker. A byte of data on a 
disk or diskette/ used to identify the 
data field and ID field in the record. 

AFF. affinity (channel separation 
parameter of DD statement or unit 
affinity value of UNIT) 

AL. American National Standard Labels 
(Value of LABEL). 

alias. (1) An alternate label. For 
example, a label and one or more aliases 
may be used to refer to the same data 
element or point in a computer program. 
(2) An alternate name for a member of a 
partitioned data set. 

ANSI. American National Standards 
Institute 

ASCII. American National Standard Code 
for Information Interchange 

AUL. American National Standard user 
labels (value of LABEL) 

auxiliary storage. Data storage other 
than virtual storage; for example, 
storage on magnetic tape or direct 
access devices. 

basic access technique. Any access 
method in which input/output statement 
causes a corresponding machine 
input/output operation to occur. 
Contrast with queued access technique. 

BCD. binary coded decimal 

BCDIC. binary coded decimal interchange 
code 

BDAM. basic direct access method 
BDW. block descriptor word 



BFALN. buffer alignment (operand of 
DCS) 

BFTEK. buffer technique (operand of 
DCB) 

BISAH. basic indexed sequential access 
method 

BLDL. build list (macro instruction) 

BLKSIZE. block size (operand of DCB) 

block prefix. An optional variable 
length field that may precede unblocked 
records or blocks of records in ASCII on 
magnetic tapes. 

block size. (1) The number of records, 
words, or characters in a block. (2) A 
measure of the size of a block, usually 
specified in units such as records, 
words, computer words, or characters. 

blocking. The process of combining two 
or more records into one block. 

BPAM. basic partitioned access method 

BPI. bits per inch 

BSAH. basic sequential access method 

BSM. backspace past tapemark and 
forward space over tapemark (operand of 
CNTRL) 

BSP. backspace one block (macro 
instruction) 

BSR. backspace over a specified number 
of blocks (operand of CNTRL). 

BUFCB. buffer pool control block 
(operand of DCB) 

buffer. An area of storage that is 
temporarily reserved for use in 
performing an input/output operation, 
into which data is read or from which 
data is written. 

buffer pool. An area of storage in 
which all buffers of a program are kept; 
the buffers are built in extents chained 
together. 

BUFL. buffer length (operand of DCB) 

BUFNO. buffer number (operand of DCB) 

BUFOFP. buffer offset (length of ASCII 
block prefix by which the buffer is 
offset; operand of DCB) 

CCHH. The cylinder head record that 
gives the DASD location. 
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CCW. channel command word 

Channel program. One or more channel 
command words that control a specific 
sequence of data channel operations. 
Execution of the specific sequence is 
initiated by a single start I/O 
instruction . 

CNTRL. control (macro instruction) 

CONTZG. contiguous space allocation 
; (value of SPACE) 

control character. A character whose 
occurrence in a particular context 
initiates^ modifies; or stops a control 
operation. It may be recorded for use in 
a subsequent action^ and may have a 
graphic representation in some 
circumstances. 

control program. A routine, usually 
part of an operating system, that aids 
in controlling the operations and 
managing the resources of a computer 
system . 

CSW. channel status word 
CVOU. See OS CVOL . 

cylinder. (1) In a disk pack, the set 
of all tracks with the same nominal 
distance from the axis about which the 
disk pack rotates. (2) The tracks of a 
disk storage device that can be accessed 
without repositioning the access 
mechanism. 

CYLOFL. number of tracks for cylinder 
overflow records (operand of DCB) 

D. format-D (ISCII/ASCII 
variable-length) records (value of 
RECFM) 

DA. direct access (value of DEVD or 
DS0R6) 

DASD. See direct access storage device 

data control block. A control block 
used by access method routines in 
storing and retrieving data. 

data conversion. The process of 
changing data from one form of 
representation to another. 

data definition (DS) statement. A job 
control statement that describes a data 
set associated with a particular job 
step. 

data extent block. An extension of the 
data control block that contains 
information about the physical status of 
the data set being processed. 

data set. The major unit of data 
storage and retrieval in the operating 
system, consisting of data in a 
prescribed arrangement and described by 



control information to which the system 
has access. As used in this publication, 
a collection of fixed- or 
variable-length records in auxiliary 
storage. 

data set control block. A data set 
label for a data set in direct access 
storage. 

data set label. A collection of 
information that describes the 
attributes of a data set and is normally 
stored on the same volume as the data 
set. 

DAU. direct access unmovable data set 
(value of DSORG) 

DB. ISCII/ASCII variable-length, 
blocked records (value of RECFM) 

DBS. ISCII/ASCII variable-length, 
blocked spanned records (value of RECFM) 

DCB. See data control block (control 
block name, macro instruction, or 
parameter on DD statement) 

DCBD. data control block dummy section 
(macro instruction) 

DD. data definition 

DEB. See data extent block 

DECB. data event control block 

DEN. magnetic tape density (operand of 
DCB) 

dequeue. To remove items from a queue. 
Contrast with enqueue. 

DEVD. Device-dependent (operand of DCB) 

direct access storage device. A device 
in which the access time is effectively 
independent of the location of the data. 

direct data set. A data set whose 
records are in random order on a direct 
access volume. Each record is stored or 
retrieved according to its actual 
address or its address according to the 
beginning of the data set. Contrast 
with sequential data set. 

directory. (1) A table of identifiers 
and references to the corresponding 
items of data. (2) An index that is 
used by a control program to locate one 
or more blocks of data that are stored 
in separate areas of data set in direct 
access storage. 

DISP. data set disposition (parameter 
of DD statement) 

doubleword. A contiguous sequence of 
bits or characters that comprises two 
computer words and is capable of being 
addressed as a unit. 
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DS. ISCII/ASCII variable-length, 
spanned records (value of RECFM) 

DSCB. See data set control block 

DSECT. See dummy control section. 

DS0R6* data set organization (operand 

of DCB) 

dummy control section. A control 
section that an assembler can use to 
format an area of storage without 
producing any object code. 

dynamic allocation. The allocation of a 
data set or volume by the use of the 
data set name or volume serial number 
rather than by the use of information 
contained in a JCL statement. 

dynamic buffering. (1) A dynamic 
allocation of buffer storage. 
(2) Allocation of storage for buffers as 
they are needed for incoming data during 
program execution. 

EBCDIC, extended binary coded decimal 

interchange code 

enqueue. To place items on a queue. 
Contrast with dequeue. 

entry point. (1) The address or the 
level of the first instruction executed 
upon entering a computer program* a 
routine* or a subroutine. A computer 
program* a routine* or a subroutine may 
have a number of different entry points* 
each perhaps corresponding to a 
different function or purpose. (2) In a 
routine* any place to which control can 
be passed. 

EODAO. End-of-data set exit routine 
address (operand of DCB) 

EOF. end-of-file 

EOV. end-of-volume 

EROPT. error options (operand of DCB) 

ESETL. end sequential retrieval (QISAM 

macro instruction) 

EXCP. execute channel program (macro 
instruction) 

exit list. A control block that 
contains the addresses of routines that 
receive control when specified events 
occur during execution; for example* 
routines that handle session 
establishment request processing or I/O 
errors. 

EXLST. See exit list (operand of DCB) 

P. fixed-length records (value of 

RECFM) 

FB. fixed-length* blocked records 
(value of RECFM) 



FBS. fixed-length* blocked* standard 
records (value of RECFM) 

FBT. fixed-length* blocked records with 
track overflow option (value of RECFM) 

FCB. forms control buffer 

FEOV. force end-of-volurae (macro 
instruction) 

FIPS. Federal Information Processing 

Standard 

flag. (1) Any of various types of 
indicators used for identification* for 
example* a wordmark. (2) A character 
that signals the occurrence of some 
condition* such as the end of a word. 

format-D. ISCII/ASCII or ISO/ANSI/FIPS 
variable-length records 

format-F. Fixed-length records 

format-U. Undefined-length records 

format*V. Variable-length records 

FS. fixed-length* standard records 

(value of RECFM) 

FSM. forward space past tapemark and 
backspace over tapemark (operand of 

CNTRL) 

FSR. forward space over a specified 
number of blocks (records) (operand of 

CNTRl) 

6CR. group coded recording (tape 
recording mode) 

generation data group. A collection of 
data sets that are kept in chronological 
order* each data set is called a 
generation data set. 

generation data set. One of a 
collection of historically related 
non-VSAM data sets; the collection of 
these data sets is known as a generation 
data group. 

GL. GET macro* locate mode (value of 
MACRF) 

6M. GET macro* move mode (value of 

MACRF) 

HA. home address 

halfword. A contiguous sequence of bits 
or characters that comprise half a 
computer word and is capable of being 
addressed as a unit. 

head. A device that reads* writes* or 
erases data on a storage medium* for 
example* a small electromagnet used to 
read* write* or erase data on magnetic 
drum or magnetic tape* or the set of 
perforating* reading* or marking devices 
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used for punching^ reading^ or printing 
on perforated tape. 

header label. (1) An internal label, 
immediately preceding the first record 
of a file, that identifies the file and 
contains data used in file control. 
(2) The label or data set label that 
precedes the data records on a unit of 
recording media. 

home address. An address written on a 
direct access volume, denoting a track's 
address relative to the beginning of the 
volume . 

ZBG. Inter-block gap 

ZCF catalog, integrated catalog 
facility catalog 

ZNOUT. input then output (operand of 

OPEN) 

integrated catalog facility (ICF). The 

name of the catalog associated with the 
Data Facility Product licensed program. 

internal storage. Storage that is 
accessible by a computer without the use 
of input/output channels. 

I/O. input/output 

lOB. input/output block 

ZPL. initial program load 

ZRG. interrecord gap 

ZS. indexed sequential (value of DSORG) 

ZSAM. indexed sequential access method 

ZSCZZ. International Standard Code for 
Information Interchange 

ZSO. International Organization for 

Standardization 

ZSU. indexed sequential unmovable 
(value of DSORG) 

JCL. job control language 

«IFCB. job file control block 

JFCBE. job file control block extension 

K. 1024 (bytes) 

key* One or more consecutive characters 
taken from a data record, used to 
identify the record and establish its 
order with respect to other records. 

KEYLEN. key length (operand of DCB) 

locate mode. A way of providing data by 
pointing to its location instead of 
moving it. 

logical record. (1) A record from the 
standpoint of its content, function, and 



use rather than its physical attributes; 
that is, one that is defined in terms of 
the information it contains. (2) A unit 
of information normally pertaining to a 
single subject; a logical record is that 
user record requested of or given to the 
data management function. 

LPA. link pack area 

LPALZB. link pack area library 

LRECL. logical record length (operand 
of DCB) 

LRZ. logical record interface 

li. machine control code (value of 

RECFM) 

HACRF. macro instruction form (operand 
of DCB) 

master catalog. A key-sequenced data 
set with an index containing extensive 
data set and volume information required 
to locate data sets, to allocate and 
deallocate storage space, to verify the 
authorization of a program or operator 
to gain access to a data set, and to 
accumulate usage statistics for data 
sets. 

member. A partition of a partitioned 
data set. 

MOD. modify data set (value of DISP) 

move mode. A transmittal mode in which 
the record to be processed is moved into 
a user work area. 

MSHZ. main storage for highest-level 
index (operand of DCB) 

HSS. IBM 3850 Mass Storage System 

NSVC. Mass Storage Volume Control 

MSV/A. main storage for work area 
(operand of DCB) 

NOP. number of channel programs 
(operand of DCB) 

non-VSAM data set. A data set created 
and accessed using one of the following 
methods! BDAM, BPAM, BSAM, QSAN, QISAN. 

NOPVIREAD. No password required to read 
a data set (value of LABEL) 

NRZZ. non-return-to-zero-inverted (tape 
recording mode) 

HSL. nonstandard label (value of LABEL) 

NTM. number of tracks in cylinder index 
for each entry in lowest level of master 
index (operand of DCB) 

operand. Information entered with a 
command name to define the data on which 
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a command operates and to control the 
execution of the command. 

operating system. Software that 
controls the execution of programs; an 
operating system may provide services 
such as resource allocation^ scheduling^ 
input/output control, and data 
management. 

OPTCO. optional services code (operand 

of DCB) 

OS CVOL. operating system control 
volume 

OUTIN. output then input (operand of 

OPEN) 

partitioned data set. A data in direct 
access storage that is divided into 
partitions, called members, each of 
which can contain a program, part of a 
program, or data. Synonymous with 
program library. 

password. A unique string of characters 
stored in a catalog that a program or a 
computer operator at the console must 
supply to meet security requirements 
before the program gains access to a 
data set. 

PCI. program-controlled interruption 

PDAS, parallel data access block 

PDS. partitioned data set 

PE. phase encoding (tape recording 
mode) 

physical record. One or more logical 
records, or occasionally, a part of one 
logical record read into or written from 
main storage as a unit. 

PL. PUT macro, locate mode (value of 
MACRF) 

PM. PUT macro, move mode (value of 

MACRF) 

PC. partitioned organization (value of 
DSORG) 

pointer. An address or other indication 
of location. 

POU. partitioned organization unmovable 
(value of DSORG) 

problem program. Any program that is 
executed when the processing unit is in 
the problem state; that is, any program 
that does not contain privileged 
instructions. This includes 
IBM-distributed programs, such as 
language translators and service 
programs, as. well as programs written by 
a user. 

PRTSP. printer line spacing (operand of 

DCB) 



PS. physical sequential (value of 

DSORG) 

PSU. physical sequential unmovable 
(value of DSORG) 

QZSAM. queued indexed sequential access 

methods 

QSAM. queued sequential access method 

queued access technique. Any access 
method that synchronizes the transfer of 
data between the computer program using 
the access method and input/output 
devices, thereby minimizing delays for 
input/output operations. 

RACF. See Resource Access Control 
Facility. 

ROBACK. read backward (operand of OPEN) 

RDW. record descriptor word 

RECFM. record format (operand of DCB) 

record. A collection of related data or 
words, treated as a unit; for example* 
in stock control, each invoice could 
constitute one record. 

register. An internal computer 
component capable of storing a specified 
amount of data and accepting or 
transferring this data rapidly. 

relative address. An address expressed 
as a difference with respect to a base 
address. 

Resource Access Control Facility. A 

licensed program that provides for 
access control by identifying and 
verifying users to the system 
authorizing access to DASD data sets, - 
logging detected unauthorized attempts 
to enter the system, and logging 
detected accesses to protected data 
sets. 

RKP. relative key position (operand of 
DCB) 

RLSE. release unused space (DD 
statement) 

RPS. rotational position sensing 

save area. An area of main storage in 
which the contents of registers are 
saved. 

scheduling. The ability to request thati 
a task set should be started at a 
particular time interval or on 
occurrence of a specified PI interrupt. 

SOU. segment descriptor word 

secondary space. An area of direct 
access storage space which is allocated 
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after the primary space originally 
allocated has been exhausted. 

sequential data set. A data set whose 
records are organized on the basis of 
their successive physical positions^ 
such as on magnetic tape. Contrast with 
direct data set. 

SER. volume serial number (value of 
VOLUME) 

serialization. In MVS, the prevention 
of a program from using a resource that 
is already being used by an interrupted 
program until the interrupted program is 
finished using the resource. 

SETL. set lower limit of sequential 
retrieval (QISAM macro instruction) 

SF. sequential forward (operand of READ 
or WRITE) 

SK. skip to a printer channel (operand 
of CNTRL) 

SKP. skip erroneous block (value of 
EROPT) 

SL. IBM standard labels (value of 
LABEL) 

SMSI. size of main-storage area for 
highest-level index (operand of DCB) 

SflSV/. size of main-storage work area 
(operand of DCB) 

SP. space lines on a printer (operand 
of CNTRL) 

spooling. (1) The use of auxiliary 
storage as a buffer to reduce processing 
delays when transferring data between 
peripheral equipment and the processors 
of a computer. (2) The reading of input 
data streams and the output of data 
streams on auxiliary storage devices^ 
concurrently with job execution, in a 
format convenient for later processing 
or output operations. 

SS. select stacker on card reader 
(operand of CNTRL) 

substitute mode. A transmittal mode 
used with exchange buffering on which 
segments are pointed to, and exchanged 
with» user work areas. 

subtask. (1) A task that is initiated 
and terminated by a higher order task. 
(2) A task that is restricted from 
communication with an operator device. 

SUL. IBM standard and user labels 
(value of LABEL) 

SVC. supervisor call 

SVCLZB. supervisor call library 



SYNAD. synchronous error routine 
address (operand of DCB) 

SYSIN. system input stream 

SYSOUT. system output stream 

system residence volume. The volume on 
which the nucleus of the operating 
system and the highest level index of 
the catalog are located. 

T. track overflow option (value of 
RECFM); user-totaling (value of OPTCD) 

TIOT. task I/O table 

trailer label. A file or data set label 
that follows the data records on a unit 
of recording media. 

TRC. table reference character 

TRTCH. track recording technique 
(operand of DCB) 

TSO. Acronym of time sharing option. 

TTR. Acronym of track record. 

U. undefined length records (value of 
RECFM) 

UCS. universal character set 

UHL. user header label 

user catalog. A catalog used in the 
same way as the master catalog, but 
optional and pointed to by the master 
catalog, and also used to lessen the 
contention for the master catalog and to 
facilitate volume portability. 

UTL. user trailer label 

V. format-V (variable-length) recor.ds 
(value of RECFM) 

VB. variable-length/ blocked records 
(value of RECFM) 

VBS. variable-length, blocked, spanned 
records (value of RECFM) 

Virtual I/O (VIO). A facility that 
pages data into and out of external page 
storage; to the problem program, the 
data to be read from or written to 
direct access storage devices. 

volume. (1) A data carrier that is 
mounted and demounted as a unit, for 
example, a reel of magnetic tape, a disk 
pack. (2) That portion of a single unit 
of storage that is accessible to a 
single read/write mechanism, for 
example, a drum, a disk pack, or a part 
of a disk module. 

volume table of contents. A table on a 
direct access volume that describes each 
data set on the volume. 



Glossary of Terms and Abbreviations 225 



vs. variable-lengths spanned records 

VSAH catalog, virtual storage access 
method catalog 



VTOC. volume table of contents 

XLRX. extended logical record interface 
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A-type address constant 

defined 5 
abbreviations 220-226 
ABEND macro 

BDAM 33 

BPAM 

BSAM 59 

list format 197-198 
QSAM 84 
absexp defined 5 
absolute expression defined 5 
access methods 

general description 
BDAM 30 
BISAN 38 
BPAM 43 
BSAM 49 
QISAM 65 
QSAM 73 

macro instructions used with 178 
acronyms 220-226 
ACSMETH operand 

SYNADAF macro 168 
actual device addressing 

BDAM 35 

QISAM 69 
adding data to a data set 

BDAM 34, 186 

BISAM 40, 183 

BPAM 185 

BSAM 185, 186 

QISAM 99 

QSAM 100 
address feedback 

current block position 132 

next block position 133 
address of buffers 

obtained from a pool 103 

returned to a pool 96, 97 
addressing, types of (BDAM) 35 
aids, coding 2-3 

alias names in a directory 164-165 
alignment of buffers 

BDAM 30 

BISAN 38 

BPAM 43 

BSAM 50 

QISAM 65 

QSAM 74 
allocation retrieval list 197 
ANSI control characters 

BPAM 47 

BSAM 62 

QSAM 88 
argument, search 

BDAM 35 

QISAM 68 
ASCII data sets 

block prefix 
BSAM 52 
QSAM 77 

restriction 52, 77 
block size 
BSAM 51 



QSAM 76 
buffer length 

BSAM 52 

QSAM 77 
restriction on record format 

BSAM 62 

QSAM 88 
ASCII translation routines 
check routine 19 
get routine 100 
put routine 129 
write routine 185 
XLATE macro 191 
associated data sets 
closing 21 
opening 112 
specifying 

BSAM 56, 58 

QSAM 81, 82 
ATTACH macro 

relationship with BLDL macro 8 
automatic buffer pool construction 
BDAM 30 
BISAM 38 
BPAM 43 
BSAM 49 
QISAM 65-67 
QSAM 73 

automatic checkpoint restart 20 
automatic error options 

See EROPT 
automatic volume switching 

FEOV macro 93 



backspacing 

BSP macro 11 

CNTRL macro 27 
backward read 

open option 113 

read operation 137 
base registers 

dummy sections 90 

macro instructions 5 
basic direct access method 

See BDAM 
basic partitioned access method 

See BPAM 
basic sequential access method 

See BSAM 

BDAM (basic direct access method) 

general description 30 

macro instructions used with 193 

symbolic field names in DCB 217-218 
BFALN operand (DCB macro) 

BDAM 30 

BISAM 38 

BPAM 43 

BSAM 50 

QISAM 65 

QSAM 74 
BFTEK operand (DCB macro) 

BDAM 31 

BSAM 50 



Index 227 



QSAM 75 

BISAM (basic indexed sequential access 
method) 

general description 38 

macro instructions used with 193 

symbolic field names in DCB 213-216 
BLDL macro 

description 8-10 

reason codes 10 

return codes 10 

use by access method 193 

used with FIND 94 
BLKSIZE operand (DCB macro) 

BDAM 31 

BPAM ^i'ii<* 

BSAM 50 

QISAM 65-66 

QSAM 75-76 
block 

backspacing by 11 

count exit 
BSAM 59 

list format 197 
QSAM 

data control 30 

data event control 192 

descriptor word^ relationship with 
BLKSIZE operand 51, 66, 76 

BUFOFF operand 52, 77 
LRECL operand 68 

event control 192 

position feedback 123, 181 

positioning with POINT 123-124 

prefix 

See also BUFOFF operand 
effect on block length 51 
effect on buffer length 52, 77 
effect on data alignment 50, 74 

reading 132-138 

size 

See BLKSIZE operand 

writing 180-187 
block size for SYSOUT data sets 

See also BLKSIZE operand 

BSAM 51 

QSAM 76 
blocking 

data checks (DCS printer) 151 

records 

BDAM 30, 36 
BPAM 43, 47 
BSAM 62 
QISAM 71 
QSAM 88-89 
boundary alignment 

See BFALN operand 
BPAM (basic partitioned access method) 

general description 43 

macro instructions used with 193 

symbolic field names for DCB 204-210 
BSAM (basic sequential access method) 

general description 49 

macro instructions used with 193 

symbolic field names for DCB 202-207 
BSP macro 

description 11 

reason codes 12 

return codes 12 

use by access method 193 
BUFCB operand (DCB macro) 

BDAM 31 

BISAM 38 

BPAM 51 

BSAM 51 



QISAM 66 
QSAM 76 
relationship to 

GETBUF macro 103 

GETPOOL macro 104 

buffer 

alignment 

See BFALN operand 

control 

using FREEBUF macro 96 
using FREEDBUF macro 97 
using FREEPOOL macro 98 
using GETBUF macro 103 
using GETPOOL macro 104 
using RELSE macro 143 

forms control 

using SETPRT macro 146 

length 

See also BUFL operand 

BUILD macro 14 

BUILDRCD macro 15 

for ASCII data sets 52, 77 

for card image mode 52, 77 

GETPOOL macro 104 

message format (SYNADAF macro) 170 

pool construction 

See also BUFCB operand 
automatic (see BUFNO operand) 1 
using BUILD macro 13-14 
using BUILDRCD macro 15-16 
using GETPOOL macro 104 

releasing 

using FREEBUF macro 96 
using FREEDBUF macro 97 
using FREEPOOL macro 98 
using RELSE macro 143 
using SYNADRLS macro 171 

specifying number 
See BUFNO operand 
buffering 

dynamic 97 

problem program controlled 

BISAM 38 

BSAM 49 
simple 74-75 

specifying 31, 50-51, 74-75 
variable-length spanned record 

BDAM 31 

BSAM 51 

QSAM 75 

using BUILDRCD macro 15-16 
BUFL operand (DCB macro) 

BDAM 32 

BISAM 39 

BPAM 44 

BSAM 51 

QISAM 66 

QSAM 77 
BUFNO operand (DCB macro) 

BDAM 32 

BISAM 39 

BPAM 44 

BSAM 52 

QISAM 66-67 

QSAM 77 

relationship to CNTRL macro 27 

relationship to NCP operand 39 
BUFOFF operand (DCB macro) 

BSAM 52-53 

QSAM 77 
BUILD macro 

description 13-14 

relationship to 

BFALN operand 30 
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BUFCB operand 31 

BUFL operand 32 

BUFNO operand 32 
use by access method 193 
BUILDRCD macro 
description 

execute form 18 

list form 17 

standard form 13-1^ 
relationship to 

BUFL operand 77 

BUFNO operand 74 

GET macro 101 

PUT macro 130 

TRUNC macro 177 
use by access method 193 
BURST operand (SETPRT macro) 1^7, 159, 
161 



I 1 

capacity record (RO) 

relationship with 
READ macro 133 
WRITE macro 180, 186 
card codes 

BSAM 55 

QSAM 80 
card image 

buffer length required 52, 77 

defined 55, 80 
card punch 55, 80 
card reader 56, 80 
carriage control channel 

CNTRL macro 27-29 

PRTOV macro 125-126 
carriage control characters 

CNTRL macro 27-29 

machine 199-200 

PRTOV macro 125-126 
chained scheduling 

BPAM 47 

BSAM 61 

QSAM 86 

changing partitioned data set member 

name 164-165 
channel 

carriage control 

See carriage control channel 
overflow 125-126 
programs, number of 
BISAM 41 
BPAM 46 
BSAM 60 
character arrangement table 

specifying use of 147-148 
character set code 
1403 printer 151 
3203 printer 151 
3211 printer 151 
CHARS operand (SETPRT macro) 148 
CHECK macro 

description 19 
relationship to 

end of data (EODAD) 45, 58 
NACRF operand 34 
operations (NCP) 41, 46, 60 
POINT macro 124 
READ macro 132, 135, 137, 139 
NRITE macro 180, 183, 185, 186 
use by access method 193 



checking, write-validity 
BDAM 36 
BPAM 47 
BSAM 62 
QISAM 70 
QSAM 87 

checkpoint records, embedded (DOS) 
CNTRL macro 27 
POINT macro 123 
CHKPT macro 

use by access method 193 
CLOSE macro 

execute form 26 

list form 24 

MODE 23, 25, 26 

MVS/370 compatibility 23 

relationship to 

BUILDRCD macro 16 

FREEPOOL macro 98 

POINT macro 123 

PUT macro 130 

SETL macro 144 
standard form 21-23 
TYPE=T 22 

use by access method 193 
CNTRL macro 

description 27-29 
restrictions 27 
specified in NACRF operand (DCB 
macro) 

BSAM 60 

QSAM 85 
use by access method 193 
codes 

See also card codes 

See also completion codes 

See also control characters 

See also conversion 

See also exception code 

See also return codes 

card 

BSAM 55 

QSAM 80 
completion 

See code, return 
control character 

See control characters 
conversion 

ASCII to EBCDIC 19, 100, 191 

EBCDIC to ASCII 185, 191 

XLATE macro 191 
return 

BLDL macro 10 

BSP macro 12 

FIND macro 94 

MSGDISP macro 109 

NOTE macro 111 

POINT macro 124 

RELEX macro 142 

SETPRT macro 152-156 

STOW macro 165-167 

SYNADAF macro 169 

SYNADRLS macro 171 

WRITE macro 188 

coding 

aids 2-3 

macro instructions 1-7 
registers as operands 5 
column, binary 

See also card image 
eliminate mode, read column 
BSAM 55, 57 
QSAM 81 
compatibility 
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MVS/XA with MVS/ 370 23, 115 
completion codes 
BLDL macro 10 
BSP macro 12 
FIND macro 94 
MSGDISP macro 109 
NOTE macro 111 
POINT macro 124 
RELEX macro 142 
STOW macro 165-167 
SYNADAF macro 169 
SYNADRLS macro 171 
HRITE macro 188 
completion testing of I/O 

operations 19, 178 
condition^ exception 192 
construct 

a buffer pool 

See buffer pool construction 
a data control block 

See DCB macro 
a DECB (data event control 
block) 192 
contents of registers on entry to 

exit list 198 
control 

characters 199-200 
I/O device 27-29, 125 
page format 125-126 
printer (3800) 146-151 
releasing 

buffer (FREEBUF macro) 96 
buffer pool (FREEPOOL macro) 98 
data block (RELEX macro) 142 
dynamically acquired buffer 97, 
181 

QSAM buffer (RELSE macro) 143 
requesting 

buffer (GETBUF macro) 103 
data block 104 
control blocks 1, 24, 135-139 
buffer pool 

See BUFCB operand 
data 

See DCB macro 
data event 192 
control characters 
CNTRL macro 27-29 
ISO/ANSI/FIPS 201 
machine 199 
PRTOV macro 125-126 
specifying for 
BPAM 47 
BSAM 63 
QSAM 88 
control section 

See DCB macro 
COPIES operand 

in SETPRT macro 
modifying 151 
specifying 148 
copy modification modul* 

specifying 150 
COPYNR operand in SETPRT macro 

modifying 151 
count exitf block 
BSAM 59 

format list 197 

QSAM 84 
cylinder 

index 69 

overflow area 67 
cylinder overflow 

DCB macro 67 



CYLOFL operand (DCB macro) 67 



CD 



D-fdrmat records 
BSAM 62 
QSAM 88 

DASD (direct access storage devices) 

capacity 194-196 

considerations with 
BSP macro 11 
CLOSE macro 21, 22 
POINT macro 123-124 

interface in DCB 206 
data block 

exclusive control of 132 

locating with POINT macro 123-124 

release of exclusive control 142 

retrieving 99-102, 132-139 

writing 127-131, 180-187 
data check 

blocking and unblocking 61, 87, 150 

restriction with CNTRL macro 27 
data control block 

See DCB 
data control block (DCB) 

DCBNCRHI field 41 

symbolic references to 202-218 
data definition (DD) statement 

See DD statement 
data event control block 

See DECB 
data extent block 

See DEB 
data management 

parameter list 24» 117 
data mode processing 

GET macro 85, 101 

PUT macro 86, 130 
data prtotection image 

See DPI 
data set 

block size for SYSOUT 51, 76 

closing 21-23 

connecting to 112-116 

disconnecting from 21-23 

disposition at close 22 

opening 112-116 

organization 

See DSORG operand 

temporary closing 22-23 

types 

See access methods 
data translation 

See code conversion 
data transmittal modes 

data 85, 101, 130 

locate 99, 100, 127, 129-130 

move 99, 101, 127, 130 

specified in DCB 85 
data, end of 

See EODAD operand 
DCB (data control block) 

completing 112 

construction 

See DCB macro 

DCBBLKCT field 28 

DCBEXCDl field 192 

DCBEXCD2 field 192 

DCBLRECL field 129 

DCBOFLGS field 115 
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description 

See DCB macro 
dummy section for 90-91 
exit list 

See EXIST operand 
special options with BLDL macro 8-10 
DCB ABEND exit 
BDAM 33 
BPAM <i5 
BSAM 59 

list format 197-198 
QSAM 8A 
PCB macro 

BDAM 30-37 
BISAM 38-42 
BPAM 43-48 
BSAM 49-64 
QISAM 72 
QSAM 73-89 

use by access method 193 
DCB open exit routine 

relationship to OPTCD operand 35^ 62 

restriction with BUILDRCD macro 15 
DCB operands 

description 

See DCB macro 

symbolic names for 202-218 
DCBD macro 

description 90-91 

use by access method 193 
: DD statement 

See also DDNAME operand 

NOTE macro 110 

OPEN macro 112-114 

POINT macro 123 

relationship to data control 
block 1, 110, 112, 114, 123 
DDNAME operand (DCB macro) 

BDAM 33 

BISAM 39 

BPAM 45 

BSAM 53 

QISAM 67 

QSAM 78 
DEB (data extent block) 

validity checking 112 
deblocking records 

BDAM 30, 36 

BPAM 47 

BSAM 62 

QISAM 71 
DECB (data event control block) 

construction 140, 189 

description 192 

exception code 192 

modifying with execute form 141, 190 

requirement with CHECK macro 19 

requirement with FREEDBUF macro 97 
delete option 

description 70 
DEN operand (DCB macro) 

BSAM 54 

QSAM 78 
density, recording 

See DEN operand 
descriptor word 

block 

BPAM 44 

BSAM 51, 52, 139 
QISAM 66, 68 
QSAM 76, 77 
record 

BSAM 52 
QISAM 66, 68 



QSAM 84 

segment 51^ 139 
DEVD operand (DCB macro) 

BSAM 53-58 

DCBD macro 91 

QSAM 78-83 
device addressing, types of (BDAM) 35 
device capacities 194-196 
device types in a dummy section 91 
direct data set 

See BDAM data set 
direct search option 

BSAM 62 

QSAM 87 

directory, partitioned data set 

obtaining contents with BLDL 8-10 
operations performed by STON 

macro 164-165 
search by FIND macro 94 

DISP option 

See disposition option 

disposition option 
CLOSE macro 22 
OPEN macro 114 

requirement for extending an ISAM 
data set 110 
DOS (Disk Operating System) 

embedded checkpoint records 
CNTRL macro 27 
DOS/OS interchange feature, 

specifying 62, 87 
POINT macro 123 
doubleword alignment 

See BFALN operand 
DPI (data protection image) 

for BSAM 56, 57 

for QSAM 81, 82 
DSECT statement 

DCB symbolic names 202 
DSORG operand (CHECK macro) 19 
DSORG operand (DCB macro) 45 

BDAM 33 

BISAM 39 

BPAM 45 

BSAM 58 

QISAM 67 

QSAM 83 
dummy control section 

DCBD macro 90-91 

PDABD macro 122 

used for DCB 202 
dummy data block (BDAM) 186-187 
dummy key 186 
dynamic buffering 

effect on buffer length 32, 38 

effect on number of channel 
programs 41 

requesting in READ macro 133, 135 

requesting in MRITE macro 181, 183 

returning buffer to the pool 97, 181 

specified in BDAM DCB 35 

specified in BISAM DCB 41 



EBCDIC (extended binary coded decimal 
interchange code) 
ASCII translation 
check routine 19 
DCB option 61, 86 
GET routine 100 
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put routine 129 
write routine 185 
XLATE macro 191 
ECB (event control block) 192 
ECB operand 

WAIT macro 178 
ECBLIST operand 

WAIT macro 178 
eliminate mode> read coliimn 
BSAM 57 
QSAM 81 

embedded checkpoint records (DOS) 

CNTRL macro 27 

POINT macro 123 
end-of-data 

See EODAD operand 
end-o '-data routine 

See EODAD routine 
end-of-file on magnetic tap«y ignoring 

bSAM 62 

QSAM 87 
end-of-sequential retrieval 

See ESTEL 
end-of-volume 

exit 

BSAM 59 
QSAM 8<i 

forced (FEOV macro) 93 
entry 

to exit routine 197 

to SYNAD exit routine 192 
EODAD (end-of-data) routina 

with BSP macro 11 

with CHECK macro 19 

with CNTRL macro 27 

with FEOV macro 93 

with GET macro 99, 102 

with POINT macro 124 
EODAD operand (DCB macro) 

BPAM 45 

BSAM 58 

QISAM 67 

QSAM 83 

EROPT (automatic error options) operand 

(DCB macro) 83-84 
ERP (error recovery procedure) 
BSAM 62 
QSAM 87 
error analysis, I/O 
relationship with 
CHECK macro 19 
CNTRL macro 28-29 
DCB macro 62, 87 
GET macro 99, 102 
POINT macro 124 
PUT macro 128, 130 
PUTX macro 131 
SETL macro 145 
SYNADAF macro 168 
specifying in DCB macro 
BDAM 37 
BISAM 42 
BPAM 48 
BSAM 62 
QISAM 72 
QSAM 89 
status indicators 
QISAM 192 
error codes 

See return codes 
error conditions 

while opening a data sat 116 
error exits 

CHECK macro 19 



CNTRL macro 28-29 
DCB macro 62, 87 
GET macro 99, 102 
POINT macro 124 
PUT macro 128, 130 
PUTX macro 131 
SETL macro 145 
SYNADAF macro 168-169 
error option operand (QSAM) 83 
error recovery 
procedure 

for tape 62, 87 
ESETL (end-of-sequential retrieval) 
macro 

relationship to 
SETL macro 144 
ESETL (end-of-sequential'retrieval) 
macro 

description 92 
relationship to 
GET macro 99 
ESTEL (end-of-sequential retrieval) 
macro 

use by access method 193 
event control block 
See ECB 
open 

See DCB open exit routine 
exception code 192 

exclusive control of data block (BDAM) 

releasing of 181 

requesting of 132 

specified in DCB 35 
EXCP macro 

relationship with SYNADAF macro 168 
execute form 

BUILDRCD macro 18 

CLOSE macro 26 

OPEN macro 119 

READ macro 141 

SETPRT macro 161-163 

WRITE macro 190 
exit routine 

See also EXLST operand 

block count 59, 84 

data control block 
See EXLST operand 

end-of-data 

See EODAD operand 

end-of-volume 59, 84 

error analysis 

See error exits 

FCB image 59, 84 

list format 197 

user labeling 59, 84 

user totaling 59, 84 
EXLST operand (DCB macro) 

BDAM 33 

BISAM 39 

BPAM 45 

BSAM 58 

list format 197 

QISAM 68 

QSAM 84 
expressions 

absolute (absexp) 5 

relocatable (relexp) 5 
EXTEND operand (OPEN macro) 113 
extended binary coded decimal 
interchange code 

See EBCDIC 
extended logical record interfacs 

See XLRI 
extended search option 
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LIMCT operand 34 
OPTCD operand 35 



F-format records 

See RECFM operand 
FCB (forms control buffer) 

image 

defining 59, 84 

operand (SETPRT macro) 148 
feedback 

block position 132, 181 

next address 133 
FEQV macro 

use by access method 193 

use of 93 
file^ end of 

See end-of-file 
FIND macro 

description 94 

reason codes 95 

return codes 94 

use by access method 193 
fixed-length records 

See BLKSIZE operand, RECFM operand 
FLASH operand (SETPRT macro) 

specifying 149 
FLASH operand in SETPRT macro 

modifying 151 
format 

exit list 197 

page 125 

record 

BDAM 36 
BPAM 47 
BSAM 62-64 
QISAM 71 
QSAM 88-89 
forms alignment 149 
forms control buffer 

See FCB 
forms overlay frame 149 
forward space (CNTRL macro) 28 
FREE option 

CLOSE macro 22 
FREEBUF macro 

description 96 

relationship to 
BUILD macro 13 
GETBUF macro 103 

use by access method 193 
FREEDBUF macro 

description 97 

use by access method 193 

used with BISAM 40, 183 
FREEPOOL macro 

description 98 

relationship to 
CLOSE macro 21 
GETPOOL macro 104 

use by access method 193 
full-track-index write option 70 
fullword boundary alignment 

See BFALN operand 
FUNC operand (DCB macro) 

BSAM 55-56, 57 

QSAM 80-81, 82 



GET macro 

ASCII translation 100 ' 
data mode (QSAM) 85, 101 
for 

QISAM 99 

QSAM 100-102 
locate mode 

QISAM 69, 99 

QSAM 85, 100 
move mode 

QISAM 69, 99 

QSAM 86, 101 

restriction when using CNTRL 
macro 27, 85 
relationship to 

CNTRL macro 27 

EODAD (see EODAD operand) 1 

PDAB macro 121 

RELSE macro 143 

SETL macro 144 
specified in DCB macro 

QISAM 69 

QSAM 85 
TYPE=P 102 

use by access method 193 
get routine exits 99, 102 
GETBUF macro 

description 103 
relationship to 
BUILD macro 13 
FREEBUF macro 96 
use by access method 193 
GETPOOL macro 

description 104 
relationship to 

BFALN operand 30 
BUFCB operand 32 
BUFL operand 32 
BUFNO operand 32 
FREEPOOL macro 98 
use by access method 193 
glossary 220-226 



IHADCB dummy section 90 
IHAPDAB dummy section 122 
image 

data protection 
BSAM 56, 58 
QSAM 81, 82 
FCB (forms control buffer) 59, 84, 
148 

UCS (universal character set) 151 
image mode, card 

BSAM 55 

QSAM 80 
independent overflow area 70 
index 

cylinder 69 

highest-level 

address of 40 
size of 41 

master 

number of tracks per level 69 
specified in OPTCD operand (DCB 
macro) 69 
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INIT operand (SETPRT macro) 149 
INOUT operand (OPEN macro) 113 
input data sets 

closing 22-23 

opening 112-116 

READ or GET specified in DCB 
BDAM 3^4 

46 
60 

69 
85 



BISAM 
BPAM 
BSAM 
QISAM 
QSAM 
reading 
BDAM 
BISAM 
BPAM 



132-134 

134-135 
137-138 

BSAM (read a direct data set) 139 

BSAM (read a sequential data 
set) 137-138 

QISAM 99 

QSAM 100-102 
testing completion of I/O operations 

CHECK 19 

HAIT 178-179 
used with GET macro 100 
INPUT operand (OPEN macro) 113 
INPUT option 

OPEN macro 112 
input/output devices 

card reader and card punch 27 
control of 

CNTRL macro 27-29 

PRTOV macro 125 
magnetic tape 27 
printer 27 
3505 card reader 

DCB macro 57, 81 
3525 card punch 

CLOSE macro 21 

CNTRL macro 27 

DCB macro 57, 58^ 81 

OPEN macro 112 
input/output error analysis 

See SYNAD exit routine 
input/output operations 

completion of 19, 178 
interface, DCB 

for BPAM 209-210 
for BSAM 209-210 
for card reader, card punch 207 
for direct access devices 206 
for magnetic tape 207 
for printer 207 
for QSAM 211 
interface, logical record 
See LRI 

ISAM (indexed sequential access method) 
See also BISAM, QISAM 
general description 38, 65 
macro instructions used with 193 
symbolic field names in DCB 213-216 

ISO/ANSI/FIPS control characters 
defined 201 



JCL (job control language) 

DD statement, relationship to 
CLOSE macro 21 

data control block (see DDNAME 

operand) 1 
DCB macro 33, 45 
GET macro 100 
NOTE macro 110 
OPEN macro 112-113 
POINT macro 123 
PUT macro 127 
LABEL parameter to request ASCII 
translation 19, 100, 129 
JFCBE (job file control block extension) 
exit list format 197 
EXLST operand 84 

relationship with OPTCD parameter 62 
job step 

checkpoint restart 20 



key (BDAM) 

address 133 
reading 132 

specifying as search argument 

specifying length 33 

writing 181 
key (ISAM) 

address 135, 183 

reading 135 

specifying length 68 

specifying position 71 

writing 183 
key length 

See KEYLEN operand 
key position, relative (RKP) 
key, record 

PUT macro 127 

READ macro 135 

RKP (relative key position) 
operand 71 

SETL macro 144-145 

WRITE macro 183 
KEYLEN operand (DCB macro) 

BDAM 33 

BPAM 46 

BSAM 59 

QISAM 68 



35 



71 



LABEL operand 

DD statement 19, 100, 129 
labels 

See also EXLST operand 
exit list format 197 
input data set '87, 93, 
output data set 
CLOSE macro 21 
FEOV macro 93 
OPEN macro 112 
user, processing 59, 84 
LEAVE option 



112 
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CLOSE macro 21 
FEOV macro 93 
OPEN macro 114 
length 
buffer 

See BUFL operand 

key 

See KEYLEN operand 

record 

See LRECL operand 
levels of master index (ISAM) 69 
LINCT operand (DCB macro) 34 
line spacing^ printer 

CNTRL macro 27-29 

PRTSP operand (DCB macro) 
BSAM 54-55 
QSAM 79 
LINK macro 

relationship with BLDL macro 8 
list address 

data management 26, 119/ 164 
list form 

BUILDRCD macro 17 

CLOSE macro 24 

OPEN macro 117 

READ macro 140 

SETPRT macro 159-160 

WRITE macro 189 
list format, exit 197 
LOAD macro 

relationship with BLDL macro 8 
loading 

FCB (forms control buffer) 148 
UCS (universal character set 
buffer) 151 
locate mode 

BUILDRCD macro 15 
GET macro 

QISAM 99, 100 
QSAM 100 
PUT macro 

QISAM 127 
QSAM 129 
specified in DCB macro 
QISAM 69 
QSAM 85 
logical record interface 

See LRI 
logical record length 

See also LRECL operand 
GET macro 100 
PUT macro 127, 129 
PUTX macro 131 
LONG operand 

WAIT macro 179 
lower limit of sequential retrieval 

(SETL macro) 144-145 
LRECL operand (DCB macro) 
BPAM 46 
BSAM 59 
QISAM 68 
QSAM 84 
LRI (interface logical record) 

invoked by BUILDRCD macro 15 
LRI (logical record interface) 
provided by QSAM 76 
specifying in DCB macro (BFTEK) 75 
used with PUT macro 129 



machine control characters 
BPAM 47 
BSAM 63 

description 199-200 
QSAM 88 
MACRF operand (DCB macro) 
BDAM 34-35 
BISAM 40 
BPAM 46 
BSAM 60 
QISAM 68 
QSAM 85 
macro use by access method 193 
macros, data management 
BLDL 8 
BSP 11 
BUILD 13-14 
BUILDRCD 

execute form 18 

list form 17 

standard form 15-16 
CHECK 19 
CHKPT 
CLOSE 

execute form 26 

list form 24 

standard form 21-23 
CNTRL 27-29 
coding 1-3 
DCB for 

BDAM 30-37 

BISAM 38-42 

BPAM 43-48 

BSAM 49-64 

QISAM 65-72 

QSAM 73-89 
DCBD 90-91 
ESETL 92 
FEOV 93 
FIND 94 
FREEDBUF 97 
FREEPOOL 98 
GET for 

QISAM 99 

QSAM 100-102 
GETBUF 103 
GETPOOL 104 
NOTE 110 
OPEN 

execute form 119 

list form 117 

standard form 112-116 
PDAB 121 
PDABD 122 
POINT 123-124 
PRTOV 125-126 
PUT for 

QISAM 127 

QSAM 129-130 
PUTX 131 
READ for 

BDAM 132-134, 139 

BISAM 134-135 

BPAM 137-138 

BSAM 137-139 

execute form 141 

list form 140 
RELEX 142 
RELSE 143 
SETL 144-145 
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SETPRT 

execute form 163 

list form 159-160 

standard form 1A6-158 
STOW 164-167 
SYNADAF 168-170 
SYNADRLS 171 
TRUNC 177 
WAIT 178-179 
WRITE for 

BDAM 180-182, 186-188 

BISAM 183-184 

BPAM 185 

BSAM 185 

execute form 190 

list form 189 
XLATE 191' 
magnetic tape 
backspace 

BSP macro 11 

CNTRL macro 27 
considerations with 

BSP macro 11 

CLOSE macro 21-23 

POINT macro 123-124 
density 54, 79 
end-of-file» ignored 62, 87 
FEOV (final volume positioning) 

macro 93 
forward space 27 
interface in DCB 207 
read backward 137 
recording technique 54, 79 
restriction 

NOTE macro 110 

POINT macro 123 
short error recovery procedure 62, 
87 

Mass Storage System 

See MSS 
master index 

highest level in storage 

address of storage area 40 
size of storage area 41 

number of tracks per level 69 

option specified in DCB 69 
MAXDCB operand 

PDAB macro 121 
member, partitioned data set 

complete a list with BLDL macro 8-10 

locate beginning with FIND macro 94 

update directory with STOH 
macro 164-165 
MF operand 

BUILDRCi) macro 17, 18 

CLOSE macro 26 

OPEN macro 117, 119 

READ macro 140, 141 

SETPRT macro 160, 163 

WRITE macro 189, 190 
mode 

See also MACRF operand 
card image 

BSAM 55 

QSAN 80 
data (QSAM) 85, 101, 130 
locate 

QISAM 69, 99, 127 

QSAN 85, 100, 129 
move 



QISAM 69, 99, 127 
QSAN 86, 101, 130 
optical mark read 
BSAN 57 
QSAN 81 
read column eliminate 
BSAN 57 
QSAN 81 
scan (QISAM) 69 . 
MODE operand (DCB macro) 
BSAN 55, 56 
QSAN 80, 81 
NODI FY operand (SETPRT macro) 150 
modifying a parameter list 
BUILDRCO macro 18 
CLOSE macro 26 
OPEN macro 117, 119 
READ macro 141 
SETPRT macro 161 
WRITE macro 190 
move mode 
QISAN 

GET macro 99 
PUT macro 127 
specified in DCB 69 
QSAN 

GET macro 101 
PUT macro 130 
specified in DCB 86 
restriction 27, 86 
MSGDISP macro 

return codes 109 
MSHI operand (DCB macro) 40 
MSS (Mass Storage System) 
device capacity 194 
in DCB 206, 209, 211 
NSWA operand (DCB macro) 40 
multiline print option 
BSAN 56, 57 
QSAN 81, 82 
MVS/370 compatibility 23, 115 



NCP operand (DCB macro) 

BISAN 41 

BPAM 46 

BSAM 60 
next address feedback 

BDAM (creating) 187 

BDAM (existing) 133 
MOTE macro 

description 110 

relationship with POINT macro 110 
restriction 

with BSP macro 11 
return codes 111 
specified in DCB 
BPAM 46 
BSAN 60 
use by access method 193 
NTN operand (DCB macro) 70 
number of channel programs 

See NCP operand 
number of tracks per index level 
See NTN operand 
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OMR (optical mark read) mode 
BSAM 57 
QSAM 81 
on-line printer 
control 27-29 
skipping 199-200 
spacing 199-200 
online printer 
skipping 125 
spacing 125 
open exit 

See DCB open exit routine 
OPEN macro 

execute form 119 
list form 117 
MODE 115, 118, 119 
MVS/370 compatibility 115 
relationship to 
CLOSE macro 21 
DDNAME operand 1 
FEOV macro 93 
GETPOOL macro lOA 
NOTE macro 110 
READ macro 137 
WRITE macro 185 
standard form 112-116 
TYPE 114, 117, 119 
use by access method 193 
open operation, testing 114-116 
open options 112-114 
operands 

substitution for 4 
OPTCD operand 
in DCB macro 
BDAM 35 
BISAM 41 
BPAM 47 
BSAM 62 
QISAM 70 
QSAM 86-87 
in SETPRT macro 150 
optical mark read mode 

See OMR 
option codes 

See OPTCD operand 
organization, data set 

See access methods 
OUTIN operand (OPEN macro) 113 
OUTINX operand (OPEN macro) 113 
output data set 
closing 21-23 
opening 112-116 

NRITE or PUT specified in DCB macro 

BDAM 35 

BISAM 40 

BPAM 46 

BSAM 60 

QISAM 69 

QSAM 86 
writing 

BDAM 180-182 

BISAM 183-184 

BPAM 185 

BSAM 185 

BSAM (write to a direct data 
set) 186-187 

QISAM 127, 131 

QSAM 129-130 
OUTPUT operand (OPEN macro) 113 
overflow 



area 

independent 70 
channel 125 

exit address (PRTOV macro) 125 
printer carriage 125 
overflow, track 
BDAM 36 
BPAM 47 
BSAM 63 
QSAM 88 

restrictions 88 

chained scheduling 47, 88 
with OPTCD operand 88 
overlay frame 149 
overprinting 125 



parallel data access block 

See PDAB 
parameter list construction 

BUILDRCD macro 17 

CLOSE macro 24 

OPEN macro 117 

READ macro 140 

SETPRT macro 159-160 

WRITE macro 189 
parameter list modification 

BUILDRCD macro 18 

CLOSE macro 26 

OPEN macro 119 

READ macro 141 

SETPRT macro 161-163 

WRITE macro 190 
partitioned data set 

macro instructions used with 193 
. relationship to 

BLDL macro 8-10 
FIND macro 94 
STOW macro 164-165 
PDAB (parallel data access block) 

constructing 121 

generating a DSECT 122 

symbolic field names 219 
PDAB macro 

use by access method 193 

use of 121 
PDABD macro 

symbolic field names 219 

use by access method 193 
POINT macro 

description 123-124 

relationship to 
NOTE macro 110 

restriction 

with BSP macro 11 

return codes 124 

specified in MACRF operand 
BPAM 46 
BSAM 60 

use by access method 193 
position feedback 

current block 132, 181 

next block 133, 186 
position, relative key (RKP) 71 
positioning volumes 

using CHECK macro 19 

using CLOSE macro 21-23 

using FEOV macro 93 

using OPEN macro 112 

using POINT macro 123-124 
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prefix* block 

See also BUFOFF operand 

effect On block length 51, 77 

effect on buffer length 52, 77 

effect on data alignment 50, 74 
print option for 3525 

BSAM 56, 58 

QSAM 80, 82 
Print Services Facility 

See PSF 
printer 

carriage control 27-126 

character set buffer loading 151 

control characters 199-200 

control information 146 

control tape 125-126 

forms control buffer loading 148 

skipping 27-29, 199-200 

spacing 27-200 
program, channel 

BISAM 41 

BPAM 46 

BSAM 60 
protection option* data 

BSAM 56, 58 

QSAM 81, 82 
PRTOV macro 

description 125 

use by access method 193 
PRTSP operand (DCB macro) 

BSAM 54-55 

QSAM 79 
PSF (Print Services Facility) 

relationship with SYNAD routine 64 

SYSl.FDEFLIB 146 

SYSl.FONTLIB 146 

SYSl.PDEFLIB 146 
punch, card 55, 80 
PUT macro 

data mode (QSAM) 85, 130 

for 

QISAM 127 

QSAM 112-114 
locate mode 

QISAM 127 

QSAM 129 
move mode 

QISAM 127 

QSAM 130 
relationship with 

PRTOV macro 125 

SYNADAF macro 168 

TRUNC macro 177 
specified in DCB macro 

QISAM 69 

QSAM 85 
use by access method 193 
PUTX macro 

description 131 
output mode 131 

relationship with TRUNC macro 177 
specified in DCB macro 

QISAM 69 

QSAM 86 
update mode 131 
use by access method .193 



E] 



QISAM (queued indexed sequential access 
method) 

general description 65 

macro instructions used with 193 

symbolic field names in DCB 213-^216 
QSAM (queued sequential access method) 

general description 73 

macro instructions used with 193 

symbolic field names in DCB 202-212 
queued access technique 

See QISAM and QSAM 



RDBACK operand (OPEN macro) 113 
read backward 

magnetic tape 113, 137 
read column eliminate mode 

BSAM 57 

QSAM 81 
READ macro 

execute form 141 

°%DAM 132-134, 139 

BISAM 134-135 

BPAM 137-138 

BSAM 137-139 
list form 140 
relationship to 

BFTEK operand 31, 50 

BUFL operand 32 

CHECK macro 19 

EODAD operand 45, 58 

FIND macro 94 

FREEDBUF macro 97 

KEYLEN operand 33 

LIMCT operand 34 

MACRF operand 34, 40, 46, 59-60 

NCP operand 41, 46, 60 

OPTCD operand 35 

POINT macro 123 

RELEX macro 142 

WAIT macro 178 

WRITE macro 180-182 
specified in DCB macro 

BDAM 34 

BISAM 40 

BPAM 46 

BSAM 59 
standard form 

BDAM 132-134 

BISAM 134-135 

BPAM 137-138 

BSAM (read direct data set) 139 
BSAM (read sequential data 
set) 137-138 
use by access method 193 
reason codes 

BLDL macro 10 
BSP macro 12 
FIND macro 95 
SETPRT macro 157 
STOW macro 165-167 
RECFM operand (DCB macro) 
BDAM 36 
BPAM 47 
BSAM 62-64 



238 MVS/XA Data Administration! Macro Instruction Reference 



QISAM 71 
43SAM 88-89 
record 
area 

construction 137 
deletion option (ISAM) 70 
format (see RECFM operand) 1 
length (see LRECL operand) ] 

descriptor wordy relationship with 
BSAM 52 
QISAM 66 » 68 
QSAM 84 

physical 

See BLKSIZE operand 

retrieval 99-102, 132-159 

segment 129 

variable-length, spanned 16, 76 
writing 127-131, 180-187 
recording density, magnetic tape 

BSAM 5^ 
QSAM 79 

recording technique, magnetic tape 

BSAM 5^ 

QSAM 79 
register 

contents on entry to 

DCB exit routine 198 
overflow exit routine 125 

DCBD base 90-91 

usage rules 5 
relative addressing 

BDAM 36 

FIND macro 94 

POINT macro 124 
relative key position 71 
release 

buffer 96 

buffer pool 98 

dynamically acquired buffer 97 
exclusive control 181 
QSAM buffer 143 
RELEX macro 

description 142 

relationship to MACRF operand 35 

return codes 142 

use by access method 193 
relexp defined 5 
relocatable expression defined 5 
RELSE macro 

use by access method 193 

use of 145 
reorganization statistics (ISAM) 70 
REREAD option 

CLOSE macro 21 

OPEN macro 114 
restore data control block 21-23 
return codes 

BLDL macro 10 

BSP macro 12 

FIND macro 94 

MSGDISP macro 109 

NOTE macro 111 

POINT macro 124 

RELEX macro 142 

SETPRT macro 152-156 

STOW macro 165-167 

SYNADAF macro 169 

SYNADRLS macro 171 

NRITE macro 188 
RETURN macro 

relationship with SYNAD operand 
BDAM 37 
BISAM 42 
BPAM 48 



BSAM 64 
QISAM 72, 201 
QSAM 89 
REWIND option 

CLOSE macro 21 
FEOV macro 93 
REXMIT operand 

SETPRT macro 151 
RKP (relative key position) operand 71 
RKP operand (DCB macro) 68 
RO record 

See capacity record 



save area 

general register requirements 5 

SYNADAF requirement 168 

SYNADRLS macro 171 
scan mode 69 
search 

partitioned data set directory 
BLDL macro 8-10 
FIND macro 94 
type of 

BDAM 34 
QISAM 69 
search argument 
BDAM 34 
QISAM 68 
search direct option 87 
search option, extended 35 
segment 

buffer 127 

descriptor word 51, 139 

interface, restriction 15 

work area 32 
sequential access methods 

See access methods 
services, optional 

BDAM 35 

BPAM 47 

BSAM 60-61 

QISAM 70 

QSAM 86 
SETL macro 

description 144-145 

relationship to 
ESETL macro 92 
GET macro 99 

use by access method 193 
SETPRT macro 

blocking/unblocking data checks 146 

execute form 161-163 

list form 159-160 

printing by print train or band 146 

reason codes for 3800 157 

return codes 152-156 

selecting UCS and FCB images 146 

standard form 146-158 

use by access method 193 
simple buffering 75 
skipping, printer 

See also spacing, printer 

CNTRL macro 27 

control characters 199-200 
SMSI operand (DCB macro) 41 
SMSW operand (DCB macro) 42 
space, magnetic tape 

backward 11, 27 

forward 27 
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spacing* printer 

See also skipping^ printer 

CNTRL macro 27 

control characters 199-200 

specified in DCB macro 
BSAM 54 
QSAM 79 
spanned records 

See variable-length# spanned records 
STACK operand (DCB macro) 

BSAM 55, 57 

QSAM 80, 82 
stacker selection 

CNTRL macro 27-29 

control characters 199-200 

specified in DCB macro 
BSAM 55, 57 
QSAM 80, 82 
standard blocks 

restriction with OPTCD operand 88 

specifying 63, 88 
statistics reorganization (ISAM) 70 
status 

following an I/O operation 192 
STON macro 

description 164-167 

directory action 165 

reason codes 165 

return codes 165-167 

use by access method 193 
switching volumes 

CHECK macro 19 

FEOV macro 93 
symbol defined 4 
SYNAD exit routine 

relationship with 
CHECK macro 19 
CNTRL macro 29 

DCB macro (see SYNAD operand) 1 

GET macro 99, 102 

POINT macro 124 

PUT macro 128, 130 

PUTX macro 131 

SETL macro 145 

SYNADAF macro 169 
specifying in DCB macro 

BDAM 37 

BISAM 42 

BPAM 48 

BSAM 64 

QISAM 72 

QSAM 89 
SYNAD operand (DCB macro) 
BDAM 37 
BISAM 42 
BPAM 48 
BSAM 64 
QISAM 72 
QSAM 89 
SYNAD routine 

relationship with PSF (Print Services 
Facility) 64 
SYNADAF macro 

description 168-169 
relationship with SYNADRLS macro 171 
return codes 169 
use by access method 193 
SYNADRLS macro 

description 171 

relationship with SYNADAF macro 168 
return codes 171 
use by access method 193 
SYNCDEV macro 172 



synchronizing I/O operations 19, 

178-179 
synchronous error exit 

See SYNAD operand 
SYSIN DD statement 

BSP macro 11 

CNTRL macro 27 

FEOV macro 93 

MACRF operand 60 

NOTE macro 111 

OPEN macro 112, 113 

OPTCD operand 61, 87 

PUTX macro 131 

RECFM operand 89 

RELSE macro 143 
SYSOUT DD statement 

BSP macro 11 

CNTRL macro 27 

FEOV macro 93 

MACRF operand 60 

NOTE macro 111 

OPEN macro 112, 113 

OPTCD operand 61, 87 

POINT macro 124 

PUTX macro 131 



CD 



table reference character 

See TRC 
tape density, magnetic 

BSAM 54 

QSAM 79 
tape error recovery procedure 

BSAM 62 

QSAM 87 
tape recording technique 

BSAM 54 

QSAM 79 
temporary close 

of data set 21 
termination, abnormal 

check routine 19 

end-of-data 

See EODAD operand 

uncorrectable I/O error 
See SYNAD operand 
testing completion of I/O 19, 178-179 
testing for open data set 114-116 
totaling exit» user 

BSAM 59 

list format 197 
QSAM 84 
track addressing^ relative 
BDAM 36 
FIND macro 94 
POINT macro 124 
track index write, full 70 
track overflow 
BDAM 36 
BPAM 47 
BSAM 63 
QSAM 88 
restrictions 

chained scheduling 47, 88 
with OPTCD operand 88 
translation 

ASCII to EBCDIC 
CHECK macro 19 
GET macro 100 
XLATE macro 191 
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EBCDIC to ASCII 
PUT macro 129 
WRITE macro 185 
XLATE macro 191 

paper tape code 54 
transmittal modes 

See also MACRF operand 

data 85, 101, 130 

locate 99, 100, 129 

move 99, 101, 127, 130 

specifying 69 
IRC (table reference character 

3800) 61, 86, 150 
TRTCH operand (DCB macro) 

DSAM 54 

QSAM 79 
TRUNC macro 

description 177 

specified in QSAM DCB 86 

use by access method 193 
truncating a block 177 
TYPE=P (GET macro) 102 
TYPE=T (CLOSE macro) 21-23 



U-format records 

BDAM . 36 

BPAM 48 

BSAM 63 

QSAM 88 
UCS (universal character set) 

unblocking data checks 61, 87 
UCS operand (SETPRT macro) 151 
unblocking data checks 

BSAM 61 

QSAM 87 

SETPRT macro 150 
uncorrectable I/O errors 

See SYNAD operand 
undefined length records 

See U-format records 
universal character set 

See UCS 
unmovable data sets 

See DSORG operand 
UPDAT operand 

OPEN macro 113, 123, 137 

restriction with POINT macro 123 

restriction with READ macro 137 
updating partitioned data set 

directory 164-165 
user 

data in partitioned data set 
directory 

BLDL macro 8-10 

STOW macro 164-165 
label exit 

BSAM 59 

list format 197 
QSAM 84 
totaling exit 
BSAM 59 

list format 197 

QSAM 84 
USING statement requirement 
DCBD macro 90-91 
PDABD macro 122 



V-format records 

BDAM 36 

BPAM 48 

BSAM 63 

QISAM 71 

QSAM 88 
validity checking 

BDAM 36 

BPAM 47 

BSAM 62 

QISAM 70 

QSAM 87 

variable-length record (format-V) 

See V-format records 
variable-length, spanned records 

See also V-format records 

restriction with 
FEOV macro 93 
GET macro 100 
OPTCD operand 61, 88 

using BFTEK 31, 50, 76 

using BUILDRCD macro 16 

using PUT macro 129 

writing for BDAM 186 
volume 

forcing end of 93 
volume positioning 

CHECK macro 19 

CLOSE macro 21-23 

FEOV macro 93 

OPEN macro 112 

POINT macro 123-124 
volume switching 19, 93 



WAIT macro 

description 178-179 
relationship to 

CHECK macro 19 

MACRF operand 34 

READ macro 132, 135 

WRITE macro 180, 183 
use by access method 193 
work area 
for BISAM 

address of 42 

size of 42 
WRITE macro 

execute form 190 
list form 189 
relationship to 

BUFL operand 32 

CHECK macro 19 

KEYLEN operand 33 

LIMCT operand 34 

MACRF operand 34, 40, 46, 60 

NCP operand 41, 46, 60 

OPTCD operand 35 

POINT macro 123 

PRTOV macro 125 

READ macro 132, 135, 137 

RELEX macro 142 

SYNADAF macro 168 

WAIT macro 178 
return codes 188 
specified in DCB macro 
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BDAM 3<^-36 

BISAM ^0 

BPAM 46 

BSAM 59-60 
standard form 

BDAM (create with BSAM) 186-188 

BDAM (existing) 180-182 

BISAM 183-184 

BPAM 185 

BSAM 185 
testing for completion 19^ 178-179 
use by access method 193 
WTOR macro 

relationship with SETPRT macro 149 



CD 



XCTL macro 

relationship with BLDL macro 8 
XLATE macro 

use by access method 193 

use of 191 
XLRI (extended logical record interface) 

BUILDRCD macro 15 

GET macro 

use 

QSAM 85 



Numerics 



3480 magnetic tape subsystem 

record length 194 
3800 Model 3 printer 64, 146 
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